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introduction 


Why for adults only? Why not! It seems as though the electronic 
games of today are geared toward the young. There are not too 
many adults that will go to the corner arcade to play the latest video 
craze, so why not have some games that adults can relate to? Here 
they are! A collection of 33 programs, just for us adults! 

Each program marked with an asterisk in the Table of Contents 
contains a sound output routine (see Chapter 1). This sound output 
will never compare with that of arcade games, but it keeps your 
computer from being dead silent! This routine was written on and 
for a Radio Shack TRS-80 Model I Level II] computer system. With a 
little modification it will work on the Radio Shack TRS-80 Model III 
Level II computer system. Apple users find a separate sound 
routine and accompanying explanation at the end of chapter one. 

If you have an IBM PC, you can skip the first chapter of this 
book entirely—the IBM is a born musician. IBM users will find 
sound (and honest-to-goodness music!) in programs besides those 
noted in the table of contents. Since the IBM PC doesn’t require a 
machine language routine to create sound and music, adding them is 
easy. You may find yourself composing background music for every 
program in the book! 

All thirty-three programs in this book were written on and for 
the TRS-80 computers mentioned above, but notes on converting 
the programs for the IBM PC and APPLE II+ or //e have been 
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included in Appendix C. Separate listings for the Apple and the IBM 
have been included for any programs which make extensive use of 
sound and/or graphics, as noted in the table of contents. The IBM 
programs were written with the color/graphics adapter in mind, but 
suggestions are included in Appendix C for using the programs with 
a monochrome screen. 

If you own a computer system different from those mentioned 
above, you can still enjoy this book. You should be familiar enough 
with BASIC to know which commands your computer uses, so that 
you can make any needed changes. Look at the different versions of 
the more complicated programs. Chances are, one of them will work 
on your computer with just a few changes. Graphics are the hardest, 
but since many of the programs use text screen characters, you 
should be able to adapt them. Look at the charts in Appendix D and 
visualize the graphics as described in the program; then adapt them 
to the commands your computer uses. 

Most of the programs require at least 16K (kilobytes) of ran- 
dom access memory, but some of the simpler ones use less. 

All programs were designed with care, and all have been 
completely debugged. With each program you'll find: 


A brief outline describing in short what the program is about; 

A flowchart to help you understand the program; 

A sample run to let you see what the program is actually going to do 
before you run it; 

The program listing with ample REM statements in case you decide 
on making your own changes; 

A list of variables and strings and what each perform within the 
program; 

Line explanations indicating line-by-line what the program is doing 
and what steps each line is performing. 


Most of the programs can handle several different players. 
Some allow up to 10 people to play at once. One program, in the final 
chapter can handle 15 different players at once! 

The final chapter of the book is devoted to parties or friendly 
get-togethers. Here you'll find six fast action games. If you decide 
to bet real money, you can be assured that the computer will keep 
track of each cent. All games within this chapter are fair, meaning 
that the computer will do no cheating, no one sided favors to keep 
the same person winning and no printing of false amounts. Of 
course, all of the programs in the book are like that, except for one. 


So sit back, relax, and enjoy! You do not have to hide this book 
irom youl Chiidien. iL CUlLaLUs aU auuit SilLualiuus VL tuul 


language—just lots of action! 


FIML 
ZVA 
Sc 
PLEASE SELECT? 


The Sound Routine 


The sound routines in this chapter are used to enhance your enjoy- 
ment of a number of the game programs in the book. Feel free to use 
the techniques you learn here to introduce sound into your own 
programs. 


THE SOUND ROUTINE FOR THE TRS-80 


There are two ways you can use the sound routine described in 
this section. You could make a small driver program and place it ona 
tape different from your program tapes. You could also make a 
driver program by creating a machine language tape, using the 
TBUG program or the EDITOR/ASSEMBLER program available 
at your local Radio Shack store. 

If you plan to use sound routines with your TRS-80, you'll need 
a small amplifier/speaker. Radio Shack’s stock number 277-1008 
will meet your requirements. If you use TBUG to make your own 
driver, use the filename SOUND as a title. When you enter it using 
the system command and the computer returns with ? press the 
break key and your driver will be ready. (Only those who own a 
TBUG program need concern themselves with these instructions. ) 

The method I will discuss now requires nothing more than a 
blank tape. I will present separate routines for 16K, 32K, and 48K 
systems. (I will give the routine for 4K at the end of this chapter.) 
Each routine is a short program in itself and as stated, should be 
kept on a separate tape. 


16K -~ ANSWER MEM SIZE? 31231 

1U FUR 1=31232 TU 31L68 

20 READ A'POKE J,A 

30 NEXT 

40 POKE 16526,0:POKE 16527,122 

30 DATA 221,33,43,122,221,70,0,0,1 
60 DATA 37,122,221,70,1,62,1,211,255 
70 DATA 16,254,221,70,1,62,2,211,255 


30 DATA 16,254,13,194,11,122,30,10,0,201 


3ZK -- ANSWER MEM SIZE? 47615 

10 FOR 1=47616 TO 47652 

20 READ A‘POKE I,A 

30 NEXT 

40 POKE 16526,0:POKE 16527,186 

90 DATA 221,33,33,186,221,70,0,0,1 
60 DATA 37,186,221,70,1,62,1,211,255 
70 DATA 16,254,221 ,70,1,62,2,211,255 


80 DATA 16,254,13,194,11,186,30,10,0,201 


43K -- ANSWER MEM SIZE? 63999 
10 FOR I=44000 TO 64036 

20 READ A'POKE I,A 

30 NEXT 

40 POKE 16526,0:POKE 16527,250 


90 DATA 221,33,33,250,221,70,0,051 


40 DATA 37,250,221,70,1,62,1,211,255 
70 DATA 16,294,221,7051,62,2,211,255 


SO DATA 16,294,13,194,11,250,30,10,0,201 


Remember, use only the program that fits your system’s 
memory size. Be sure also that line 40 is used (initialization). This 
line is very important. You will have no sound output without it. 

Each of the programs that contain sound are written for a 16K 
system. If you have a 32K or 48K system, you will also have to 
change the variables for sound output. Turn to a program that 
contains sound output. You will find that the variable (for instance 
MC in line 370 in the Master Code program, or SS in line 295 in the 
Hold Time program) is set to 31266. For a 32K system, change the 
figure (and all others in the other programs) to 47650. For a 48K 
system change that figure to 64034. I designed the programs for a 
16K machine because I believe this is the size system most people 
buy. (I could be wrong!) If I had included figures for the other 
systems, it would have made the programs confusing. Just be sure 
to change these figures for a 32K or 48K and you'll encounter no 
problems. 

If you've created the sound program for your system, you are 
now ready to try some experiments with sound. Remove the plug 
that is marked AUX from your recorder and plug it into the small 
amplifier/speaker that I described earlier. (Be sure there is a fresh 
battery in it.) Turn it on to a moderate to low volume. 


10 REM EXPERIMENTS WITH SOUND 

20 N=10:A=312663;REM A=47450 FOR A 32K - A=64034 FOR A 48K 
20 POKE A,N 

40 X=USRWONREM CALL ROUTINE 

20 FOR T=1 TO 20i{NEXTIREM PAUSE 

60 IF N>=Z55 THEN SO{REM 255 LIMIT FOR VARIABLE 

70 N=N+1iGOTO 30 


c0 END 


Now run the program. You should hear sounds coming from the 
amnlifier /onaaler, Adinct the volume on it if necessary Tf van do 
not have sound, recheck the driver (machine program) to see if you 
entered all figures correctly and make sure that the initialization 
(line 40) has been completed. If you are receiving sound, the pitch 
will continue to become lower as the variable N becomes higher. 
When N reaches 255, the program will end. Never use a number for 
N that is below 10 or greater than 255. 
For a dual output, add these lines to the program in residence: 


41 IF N<= 254 THEN POKE A,N+1 : X = USR(0) 


Run the program with the above line, then add: 
42 POKE A,N—1 : X = USR(O) 


This time delete the pause loop, line 50, and run again. Any time you 
want to stop the program (if N<255) press the break key. For 
strange sounds, add these two lines and run the program. 


43 Q = RND(255):IF Q<10 THEN 43 
44 POKE A,Q : X = USR(O) 


After experimenting with the above, delete lines 41-80 and add 
the following: 


10 A$=INKEYS 

40 IF A¢g="" THEN 30 

7O IF Ne=255 THEN 70 

20 N=N+1:GOTO 30 

70 END 

The complete program should look like this: 
10 REM EXPERIMENTS WITH SOUND 


20 N=10};A=312465REM A=47450 FOR 22K - A=64034 FOR 48K 


30 POKE A,N 


40 X=USRWNREM CALL ROUTINE 
10 AS=INKEY$ 

40 1F A$="" THEN 30 

70 IF N>=255 THEN 90 

$0 N=N+1iGOTO 30 

70 END 


Now run the program above. Each time you press any key, the 
tone gets lower. After you’ve experimented with this program, type 
NEW and enter the following program: 


10 REM MAKE A TUNE 

20 DIM N(100)};REM FOR UP TO 100 NOTES 
30 REM WILL USE KEYS A,B,C,D,E,F,G 

40 A=10(B=S0;C=S0iD=100;E=150iF=Z00;G=225 
10 T=1:AA=312463REM A=47650 FOR 22K - A=64034 FOR 48K 
40 CLS‘PRINT"TO HEAR YOUR TUNE" 

70 PRINT"PRESS THE SPACE BAR." 

20 PRINT"START COMPOSING, USE THE" 

970 PRINT"LETTERS A,B,C,D,E,F,G" 

100 A$=INKEY$ 

110 IF A$="" THEN 100 

120 IF A$="" THEN 210;REM SPACE BAR 

120 IF A$="A" THEN 2710 

140 IF A$="B" THEN 220 

150 IF As="C" THEN 220 

140 IF A$="D" THEN 240 


170 IF A$="E" THEN 250 


190 IF A$="F" THEN 760 


190 IF A$="G" THEN 270 


200 GOTO 100 
Z10 POKE AA,AIN(T)=A:GOTO 280 
220 POKE AA, BIN(DT)=BIGOTO 280 
220 POKE AA,CiN(T)=CiGOTO 280 
Z40 POKE AA,DIN(T)=D:GOTO 2380 
250 POKE AA, E:SN(ITI)=E:GOTO 280 
260 POKE AA,FIN(DT=FiGOTO 280 
270 POKE AA,GiIN(T)=G 
ZE0 X=USRW)IREM CALL ROUTINE 
290 IF I>=100 THEN S10{REM N(I) FOR NOTES IN TUNE 
300 PRINT A$}I=I+1:;GOTO 100 
310 T=I-1:{PRINT 
220 PRINT"SPEED OF PLAYBACK (FAST,MEDIUM,SLOW)" 
2320 INPUT"1,2 OR 3";TTITT=TT#20 
340 FOR I=1 TO THF N(I)=0 THEN 370 
220 POKE AA NTI) X=USR(O) 
340 FOR P=1 TO TTiNEXT P,lI 
270 PRINT 
280 PRINT"END OF YOUR TUNE." 
270 END 
Run the above program and compose different tunes. You may 
be able to tell from the tones that I am no musical expert! You can 
experiment with the constants at line 40, A-G, to come up with some 


tones of your own. Remember to keep these constants between 10 
and 255, 10 will be the highest tone you can achieve, and 255 will be 
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the lowest. Of course, you have all the numerals between 10 and 255 
to experiment with. The program lines are explained below. 

Line 20 dimensions the N array so that 100 notes can be placed 
into your tune. You can either increase or decrease this amount, 
depending on what you are planning to compose. 

Line 30 is a remark indicating which keys will be used. 

Line 40 defines the constants for the 7 different notes (A-G). 
You can change these to whatever you choose as long as the 
numbers are between 10 and 255. 

Line 50 sets or initializes the counter I and the poke location, 
AA. Always remember that these constants are geared to a 16K 
system, here, and throughout the book. If you have a 32K system, 
this constant will be 47650. If your system is a 48K system, the 
constant will be 64034. 

Lines 60-90 are simple print statements. 

Line 100 sets up the INKEY$ function for the keys that you will 
press. 

Line 110 causes the program to loop to line 100 until a key 1s 
pressed. 

Lines 120-190 identify the key that was pressed. Whenever 
you press the space bar, the computer assumes that all of your notes 
are in and the tune is replayed for you. Otherwise, the computer will 
only notice keys that are within the arguments and branch to the line 
specified when they are pressed. 

Line 200 loops back to line 100. This assures that the program 
will not fall, continue if any key other than those specified is 
pressed. 

Lines 210-270 poke the value of the constant for the key that 
was pressed into location AA. This value will then be placed into the 
subscripted variable N(I) for playback. The tune you enter will be 
played back exactly as you input it. 

Line 280 will call the sound routine so you'll hear the note 
(sound) that you have selected immediately. The letter X can be any 
other letter that you choose so long as it is not used anywhere else 
within a program; that is, if you want you could use the letter 
Z:Z=USR(0) would be valid for the above program, but if you use 
A = USR(0), you would lose the constant you had for A and an error 
would occur in your program. 

Line 290 will test the amount of counter I. If it has reached 100, 
the limit for the number of notes, the program will branch to line 
310. 

Line 300 will print the key you have pressed (if valid), advance 
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the counter by 1, and return to line 100 for another key closure. 

Line 310 initializes the variable ‘1 to 1-1 tor the playback ot all 
the notes you entered, provided that the space bar was pressed in 
line 120. 

Lines 320-330 ask you at what speed you want your tune 
replayed. The amount you enter, 1, 2, or 3, will be multiplied by 20 
and used in a for-next loop throughout the playback. You can ex- 
periment with different values of TT if you so choose. For example, 
TT=TT20 could be changed to TT=TT 10, for a faster playback. 

Lines 340-360 contain 2 loops: one for notes entered and the 
other for a pause during playback. The second statement in line 340 
will end the program if one of the notes is equal to 0 (zero). It’s 
unlikely that one would be, but the statement is there to be on the 
safe side. Line 350 then pokes the value that is in the appropriate 
location in the N(D array into location AA and calls the sound routine 
with X=USR(0). Line 360 forms the pause or delay loop used during 
playback, and also contains the next statement for the notes (I). 

Lines 370-390 terminate the program when all notes have been 
played back. 


From all these examples, you should have the general idea of 
how to use your sound routine. If not, you should review the 
material before you tackle writing programs that will include sound. 
If you plan to write your own programs with sound or to add sound to 
some that you now have, do not add the sound routine to a program 
that uses the CHR$(23) function (double size). Take my word for It, 
it will not work; you will receive nothing more than error messages. 

If you own a 4K system and your're still scratching your head 
wondering what the sounds are like, you’re in luck! Here is the 
driver for the 4K system (LEVEL II). Remember, the programs in 
this book are intended for machines with at least 16K of RAM. This 
4K driver doesn’t mean you can enter and run the other programs. 


ANSWER MEM SIZE? 20223 

10 FOR J=20224 TO 20Z60 

20 READ A:POKE I,A 

30 NEXT 

40 POKE 16526,0i:POKE 16527,79 


90 DATA 221,33,33,79,221,70,0,0,1 
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60 DATA 37479,221,7051,62,1,211,255 

70 DATA 16,254,221 ,70,1,62,2,211,255 

80 DATA 16,254,13,194,11,79,30,10,0,201 

To receive sound POKE a numeral between 10 and 255 into 
location 20258 and CALL the routine. Example: 

100 A=20753 


110 POKE A,50}X=USR(O) 


Enter and run all of the above. You will hear a short beep from the 
amplifier/speaker. Remember that the address that you will poke a 
numeral into is 20258. Anytime you desire to hear a tone, use 
USR(0) (CALL, X= USR(0)). You can enter and run all of the short 
programs that are in this chapter on the 4K system. 

For all of the systems, remember to keep the driver that fits 
your machine RAM ona separate tape to use whenever you are both 
to use a sound output on a program and always answer MEM SIZE? 
with the correct constant when booting-up your system to protect 
the area where the sound routine is residing. Once loaded into 
memory, the driver will remain there until the power is turned off. It 
cannot be lost when you type NEW or enter a different program 
through BASIC. 

To use any of the programs that contain sound without the 
sound output, delete all of the U= USR(0) statements (machine 
language calls) from the program. 


SOUND ROUTINE FOR THE APPLE II 


The following program for the Apple II computer was written 
and tested on a 48K system. To use it, you may either type it in at 
the beginning of each program using sound—a lot of work, but 
simpler at ‘‘run-time,” or save it on a disk to be loaded each time it 
is needed for a program. The Apple II versions of programs in this 
book contain the commands to load and “call” the routine with the 
assumption that you will have it saved on the same disk with your 
programs. 

To use the routine on your program disk, first type in the 
program below and run it. The program will take less than a minute 
to run. then type in the following command: BSAVE SOUND, 
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A$300,L$1E and press the return key. The program will now be on 


. 
VATIY Nranram Avelr radar ta sean 
ST Orn eye eee teeny a whaney LX LAW wWe 


SOUND 

10 FOR I=/768 TO 797 

20 READ A:POKE I,A 

30 NEXT 

40 DATA 0,0,0,172,1,3 

50 DATA 174,1,3,173,2,3 

60 DATA 32,168,252,173,48,192 
70 DATA 232,208, 253,136,208, 238 


80 DATA 206,0,3, 208, 230,96 


The SOUND program for the Apple II is based on material 
developed by Jesse Sturgis and is used by permission. 


i) 


Games of Skill and Logic 


The Course challenges you to react quickly in order to maneuver 
your vehicle safely down an ever-changing course. 

Words-Zit presents coded messages for you to decipher. The 
code is new each time you load the program. 

Math-a-Code gives you a chance to test your prowess in 
addition . . . but each digit is represented by a letter! 

Master Code is another code game, but this time each letter is 
represented by a different tone. 

Driver’s Test allows you to test your reflexes and avoid 
collisions without risking the family car. 

What Is It? is a competitive game that tests your ability to 
guess words using clues that become progressively more specific. 
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THE COURSE 


You will be required to have top-notch driving abilities as you 
negotiate the 10 laps of this challenging course. Be careful not to 
make the slightest contact with the edge of the track because each 
time you do, it will count as a hit. You will control the vehicle with 
the left and right arrow keys. Note that the IBM version of this 


program 1s included in Appendix A. 


Sample Run 


>>> THE COURSE <<< 


REQUIRE INSTRUCTIONS? YES 

THE COURSE WILL REQUIRE THAT YOU 
USE TOP NOTCH REFLEXES TO CONTROL 
YOUR VEHICLE THROUGH A DISTANCE OF 
10 LAPS, THE COURSE WILL BE BOTH 
STRAIGHT AND WINDING, YOU WILL 
CONTROL YOUR VEHICLE WITH THE 

LEFT AND RIGHT ARROW KEYS. 

THE SLIGHTEST CONTACT WITH THE 
EDGE OF THE TRACK WILL CAUSE 

AN ACCIDENT, AND A HIT WILL BE 

ADDED TO YOUR SCORE. 
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PRESS A KEY... 
FIRST NAIWIE OF URIVEH? WALLAUE 
WALLACE STRIKE A KEY TO BEGIN... 


START 


d 
Y 
PRINT 
INSTRUCTIONS 


PLAYER'S 
FIRST NAME 


INITIALIZE 
VARIABLES 


POKE LANE 
GRAPHICS 


MOVE VEHICLE 
LEFT 


Y 
OUTPUT TALLY BEST 
TOTAL HITS SCORE N STOP 


Flowchart for The Course. 
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DRIVER: 
LAPS = 
HITS = 


Program Listing 


10 
20 
30 
40 
90 
60 
70 
80 
90 
100 
110 
120 
130 
140 
190 
160 
170 
180 
190 


REM PROGRAM TITLE: THE COURSE 

CLS: PRINT TAB(10),; 

PRINT") >>) THE COURSE ¢<¢<¢" 

PRINT 

INPUT" REQUIRE INSTRUCTIONS"; X$§ 

IF X$="N" OR X$="NO" THEN 210 

PRINT 

PRINT"THE COURSE WILL REQUIRE THAT YOU" 
PRINT" USE TOP NOTCH REFLEXES TO CONTROL" 
PRINT" YOUR VEHICLE THROUGH A DISTANCE OF" 
PRINT"10 LAPS. THE COURSE WILL BE BOTH" 
PRINT" STRAIGHT AND WINDING YOU WILL" 
PRINT" CONTROL YOUR VEHICLE WITH THE" 
PRINT"'LEFT AND RIGHT ARROW KEYS. “ 

PRINT" THE SLIGHTEST CONTACT WITH THE" 
PRINT"EDGE OF THE TRACK WILL CAUSE" 
PRINT" AN ACCIDENT, AND A HIT WILL BE" 
PRINT" ADDED TO YOUR SCORE." 
PRINT: PRINT: PRINT" PRESS A KEY..." 
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200 
214 
220 
225 
230 
240 
2495 
290 
260 
269 
z270 
279 
280 
283 
290 
299 
300 
305 
310 
315 
320 
330 
340 
330 
360 
370 
380 


390 
400 
405 
410 
919 
420 
930 
440 
450 
460 
470 
480 
989 
300 
9095 
210 
220 
930 
2399 
240 
290 
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XS=INKEYS$:IF X$="" THEN 200 


ere:T-1: AT-1 


INPUT" FIRST NAME OF DRIVER" ;DS5 


IF D$="" THEN PRINT:GOTO 220 
PRINT DS;" STRIKE A KEY TO BEGIN..." 
X$=INKEYS:IF X$="" THEN 240 


IF T>=2 THEN CLS:GOTO 260 
CLS:DIM CxX(18),CY (18) 

PRINT@O, "DRIVER: ";D$;:GOSUB 1000 
CC=+=0:LP=0:LL=0:HI=0:' THE COURSE 
CX=15388:CY=CX+9:J=191:C=1 
Ci=CX+3:C2=C1+2:' VEHICLE 

IF CY>=16383 OR €1)2+16383 THEN 400 
IF CC=1i THEN 420 

POKE CX,J:POKE CY,J 

CX(C ,=CX:CY(C =CY:' TO BLANK OLD COURSE 
CX=CX+649:CY=CV+64 

C=C+1 

DD=RND(2) 

KY=PEEK(14400):' KEYS 

IF DD=1 THEN 340 
CX¥=CXK+DD-1:CY=CY+DD-1:GOTO 360 
DD=-DD 

CX=CX+DD:CY=CY+DD 

' CHECK FOR MOVEMENT (VEHICLE) 
IF KY=32 THEN 500 

IF KY=64 THEN 530 

GOTO 280 

CC=1:LP=LPri 

IF (LP/10)=.6 THEN LL=LL+1:LP=1 
PRINT@649,"LAPS =";,LL; 

IF LL>=10 THEN 700 ELSE GOTO 270 
POKE CX(C),32:POKE CY(C),32 

POKE C1,32:POKE C2, 32 

IF €2>=16319 THEN 290 
Ci=C1+649:C2=C2+64 

POKE €C1,183:POKE C2,187 
CL=PEEK(C1-1):CR=PEEK(C2+1) 

IF ABS(CL+¥CR)¢(>64 THEN 600 

GOTO 290 

' VEHICLE MOVEMENT (LEFT) 

POKE C1,32:POKE C2,32 
C1=Ci-1:C2=C2-1 

GOTO 280 

' VEHICLE MOVEMENT (CRIGHT) 

POKE C1,32:POKE C€C2,32 

IF €2)>=16319 THEN 280 
Ciz=zxC1+1:C2=C2+1 


960 GOTO 280 

600 ' HITS TO VEHICLE 

610 HI=HI +1 

620 PRINT@128,"HITS =";HI; 

630 GOTO 290 

700 ' FINISH 

710 PRINT@192,CHRS(30) 

720 IF HI=0 THEN 800 

730 PRINT" YOU DIDN'T MAKE THE";LL;"“LAPS" 
740 PRINT'WITHOUT ERROR. YOU TOOK A" 
750 PRINT'TOTAL OF";HI;"HITS...." 
760 PRINT"TRY AGAIN, ";D§; 

770 INPUT X$§& 

780 ITF X$="N" OR X$="NO" THEN 1100 
7?0 AT=AT+1:PRINT:GOTO 830 

800 PRINT"NOT BAD! NO HITS AT ALL!" 
810 PRINT"THINK YOU MIGHT WANT TO" 
820 GOTO 760 

830 T(T)=HI:' BEST SCORE 

835 IF T<=1 THEN 920 

840 I=1:Z=0 

850 IF T¢CI)<=TCI+1) THEN 880 

860 YS=TC ID: TO sTC14+1):TC1+10=Y5 
870 Z=1 

880 [=I+1:I1IF I>=T THEN 9200 

890 GOTO 850 

900 IF Z=1 THEN 840 

910 BS=T(1) 

920 T=T+1:I1F Td=5 THEN BS=T(1):T=3 
930 PRINT 

940 PRINT:GOTO 230 
1000 ' MESSAGE 

1010 IF Tt=2 THEN 1040 
1020 PRINT@42,"BEST SCORE: ",BS; 
1030 PRINT@106,"ATTEMPTS: “;AT; 
1040 RETURN 

1100 ‘ END 
1110 CLS 

1120 PRINT"'END OF PROGRAM RUN..." 
1130 END 


The Variables and Strings 


X$ - General purpose for input commands 

T - For users’ scores 

AT - Total user attempts 

D§ - Name of driver 

CX & CY (subscripted) for left and right sides of the lane 
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CC - General purpose variable. When CC is equal to 1, the previous 
track will be reset as a new course Is poked. 

LP - When this variable is divided by 10, one lap will have been 
completed 

LL - Total laps 

HI - Total hits per 10 lap period 

CX, CY & J - For lane placement, poked into video memory 

Cl & C2 - For shape of vehicle, poked into video memory 

C - Used in conjunction with subscripted variables CX & CY to poke 
previous track with blanks, CHR$(32) 

DD - A random amount to move track (shape) left or right 

KY - For user key closure: Left arrow to move vehicle left and right 
arrow to move vehicle right 

CL & CR - Used to detect when a user’s vehicle has hit the side of 
the lane 

T(D - For users’ best run 

Z - General purpose, used to insure that the best mun is correct 

BS - Best score obtained 


Explanation of the Program Lines 

Lines 20-200 print all instructions, if they are needed. 

Line 210 initializes two of the variables. 

Lines 220-240 asks for the user’s first name and a key press to 
begin the game. 

Line 245 skips the dimension statements, if they have already 
been used. 

Line 250 is the dimension statement for the subscripted vari- 
ables CX and CY, which poked the locations of the left and right 
sides of the lane. 

Line 260 prints the driver’s name and then branches to 1000 
(GOSUB) where best score and total attempts are printed if the 
variable T is greater than or equal to 2. 

Line 265 initializes more variables: CC for the blanking of the 
old or previous lane, LP for each lap, LL for total laps, and HI for 
total hits. 

Lines 270-630 poke the left and right sides of the lane until the 
bottom of the video is reached. Then the vehicle is poked at the top 
of the video. The old course is then followed, using the left and right 
arrow keys, and the vehicle moves toward the bottom of the video. 
While all of this is taking place, the old lane (behind the vehicle) is 
blanked out and a new course is poked. The user will not be 
grounded for ‘hits’ to the old lane, just the new, which is being poked 
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while he or she is driving. This is decided by the absolute amount of 
CL+CR. If this amount is not equal to 64, a hit has been made to 
either side of the lane, If LP/10=6, one lap has been completed, 
and LL is then advanced by one. If LL>=10 (laps) the program 
branches to line 700, where the score is tallied and the user is asked 
if he or she wants to try again. 

Lines 840-900 determine the best score. The program con- 
tinues to loop here until T(1) is the lowest number of hits. When 
equal to 1 variable Z indicates that the lowest has not been reached, 
so the program branches back to line 840 and begins again. 
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INTERCHANGE: A FOR M, 
E FOR J, C FOR R, Z FOR D, 
? FOR ??, AND THAT OTHER 


LETTER WAS ? FOR L 


WORDS-ZiT 


In this game you'll be faced with decoding 20 different mes- 
sages formed by interchanging all of the letters of the alphabet, 
except for E, I and O. Each message will look like a bunch of 
garbage, but after you have decoded the first message, the last 19 
shouldn’t be so hard! The program uses INKEY$. If you make 
a mistake, use the left arrow key to backspace over your mistake 
and then continue. 


Sample Run 


INSTRUCTIONS? YES 

WORDS-ZIT 

YOU WILL BE FACED WITH 20 DIFFERENT 
MESSAGES TO DECODE. ALL THE 
LETTERS OF THE ALPHABET HAVE 

BEEN INTERCHANGED, EXCEPT FOR E, 

|, AND O, WHICH REMAIN THE SAME. 

IF YOU MAKE IT THROUGH THE FIRST 
MESSAGE, REMEMBER WHICH LETTERS 
WERE CHANGED WITH WHICH, THEN THE 
FOLLOWING 19 SHOULDN'T BE SO HARD. 
TYPE SLOWLY, DON'T BE IN A HURRY. 
THE PROGRAM USES INKEY$, IF YOU 
MAKE A MISTAKE, USE THE LEFT 
ARROW KEY TO BACKSPACE. 

PRESS ENTER? 


GOH MLFE DMIZ ONE SIAMD 
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Y 


INT 
INSTRUCTIONS 
READ DATA 
LIST 
GET 
MESSAGE 


ADVANCE 
COUNTER CORRECT 


Flowchart for Words-Zit. 
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THE MESSAGE? 
| DO NOT HAVE ANY IDEA 


YOU HAVE MISSED 19 LETTERS. 
TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


IR DMEG QESE LBB LZ ZIKPBE 


THE MESSAGE? 
IS MEG IN THE HOUSE NOW 


YOU HAVE MISSED 23 LETTERS. 
TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


ULN GOH NOD QOSJ RLZDES 


THE MESSAGE? 
YOU HAVE SEEN THE RIDER 


YOU HAVE MISSED 20 LETTERS. 
TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


GOH MLFE KYLE ID DMIZ RLS 


THE MESSAGE? 

SCRAMBLE A LITTLE MORE 

YOU HAVE MISSED 23 LETTERS. 

TRY THE SAME ONE OR GO TO THE NEXT 
ENTER SAME OR NEXT? NEXT 


STOP 


(This is not a complete run. Messages were guessed at so 


as to reveal the code.) 
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Program Listing 


10 

20 

30 

40 

20 

60 

70 

80 

90 

100 
110 
120 
130 
140 
130 
160 
170 
180 
190 
Z00 
210 
220 
230 
240 
250 
260 
270 
zZ80 
290 
300 
305 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


PROGRAM TITLE: WORD-ZIT 


RANDOM: CLEAR 700 

CLS: INPUT" INSTRUCTIONS" ; A$ 

IF AS<)>"Y" AND AS$<) "YES" THEN 200 
PRINT'"WORDS-ZIT" 

PRINT" YOU WILL BE FACED WITH 20 DIFFERENT" 
PRINT"MESSAGES TO DECODE. ALL THE" 
PRINT“LETTERS OF THE ALPHABET HAVE" 

PRINT" BEEN INTERCHANGED, EXCEPT FOR E," 


PRINT"I, AND OQ, WHICH REMAIN THE SAME." 

PRINT’ IF YOU MAKE IT THROUGH THE FIRST" 

PRINT'MESSAGE, REMEMBER WHICH LETTERS" 

PRINT'“WERE CHANGED WITH WHICH, THEN THE" 

PRINT" FOLLOWING 19 SHOULDN'T BE SO HARD." 

PRINT“ TYPE SLOWLY, DON'T BE IN A HURRY, “ 

PRINT"THE PROGRAM USES INKEYS. IF YQU" 

PRINT"MAKE A MISTAKE, USE THE <LEFT" 

PRINT" ARROW) KEY TO BACKSPACE." 

INPUT" PRESS ENTER"; A$ 

CLS 

DIM VU$¢(21),M(21),X%$(27),L$¢27) 

DIM W$(21),L°27):WD=1 

GOSUB 4000:WS=WS$(X) :W=LEN(WS):' MESSAGE 
SET LETTERS THEN REDO 

Az=1:1=65 

XS$CA)=CHRS (I): LCAD =A 

A=A+1: IT =I +41 

IF [=91 THEN 300 

GOT0260 

A=1:PRINT@0O,STRINGS (149,32) 

IF WD>=3 THEN 470 

X=RND( 26) 

IF L(X)=0 THEN 310 


LS¢(A)=X$(X):L¢X)=0 

A=A+1 

IF A=27 THEN 370 

GOTO 310 

* PLACE E,I, & O IN PROPER PLACE 
ZS="E":M=5 


FOR [f=1 TO 27 

IF L§$(I)=Z$ THEN 420 

NEXT 

' NOW INTERCHANGE EACH 
LS=L$(M):LS(M)=L$¢(1I): LS CI)=L8 

IF Z$="E" THEN Z$="I":M=9:GOTO 390 
IF Z$="1" THEN Z$="0":M=15:GOTO 390 
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460 
460 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
750 
760 
770 
900 
910 
920 
930 
935 
940 
950 
960 
965 
970 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
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:' PRINT MESSAGE 


IF MIDS(WS,A,1)=" " THEN TS=" ":GOTO 5320 
NEXT 
TS=L$ (I) 
PRINT T$§; 
A=A+1 
IF A>W THEN 560 
GOTO 470 
PRINT: PRINT 
PRINT"THE MESSAGE ?" 
P=256:A=1 
XS=INKEYS$ 
PRINT@P,CHR$ (143); 
FOR T=1 TO $0:NEXT 
PRINT@P," "; 
FOR T=1 TO 25 :NEXT 
IF XS=""" THEN $590 
IF ASC(X5)=+8 THEN 690 
PRINT@P ,X5;:P=P+1:A=A+1:GOTO 750 
IF A>}W THEN 9300 
GOTO 590 
P=P-1:A=A-1:' BACKSPACE 
IF P¢=256 THEN P=256:A=1 
" BACKSPACE TOTAL MESSAGE 
QS=LEFT§¢(Q§,A-1) 
GOTO $90 
’ TOTAL MESSAGE 
Q$=Q5+X$§ 
GOTO 670 
* ONE COMPLETED 
PRINT: PRINT 
IF Q$<¢)WS THEN 1000 
PRINT" YOU HAVE THIS ONE CORRECT. " 
CR=CR+1:IF WD>=3 THEN 960 
PRINT"DO YOU REMEMBER THE CODE FOR" 
PRINT" EACH OF THE LETTERS .." 
FOR T=1 TO 3000:NEXT 
IF WD=21 THEN 1200 
CLS :Q$="":GOTO 230 
' INCORRECT LETTERS 
FOR I=#i TO LEN(WS) 
IF MID$(Q@§,1,1)<¢>MIDS(WS,I,1) THEN 1040 
NEXT:GOTO 1050 
ML=ML+1:GOTO 1030 
PRINT" YOU HAVE MISSED";ML;"LETTERS. " 
PRINT" TRY THE SAME ONE OR GO TO THE NEXT" 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


1300 
4000 


4010 
4020 
4030 
4040 
40350 
4060 
4070 
4080 
4070 
4100 
2000 
9010 
5020 
3030 
3040 
5050 
5060 


3070 
3080 
3090 
9100 
5110 


$120 
9130 


5140 
9150 


INPUT"ENTER SAME OR NEXT" ;A$:ML=0 
IF A$="SAME" THEN 1110 

IF A$="NEXT" THEN SK=SK+1:GOTO 960 
PRINT: GOTO 1060 

Q5=:" tt 
CLS 
PRINT 
' END 
CLS 
PRINT"SORRY, WE HAVE USED THE ENTIRE" 
PRINT"LIST OF MESSAGES..." 

PRINT"YOUR FINAL SCORE: "“ 

‘ CORRECT / INCORRECT 

PRINT CR; "MESSAGES CORRECT. " 

PRINT SK; "MESSAGES INCORRECT OR SKIPPED." 
PRINT 

PRINT"END OF RUN." 

END 

‘ READ DATA LIST IF NOT DONE 

IF WD)=2 THEN 4030 

FOR Isi TO 20:READ U$(1I):M(I)=1:NEXT 

' GET RANDOM MESSAGE 

X=RND(20):I1F M(X)=0 THEN 4040 

WS CX) =US(X) -M(X)=0 

' COUNTER ADVANCE 

WD=WD+1 

PRINT@0,"PROCESSING. |" 

FOR T=1 TO 1000:NEXT 

RETURN 

DATA YOU HAVE THIS ONE RIGHT 

DATA YOU MUST BE GETTING BETTER 

DATA DOING FINE 

DATA A ROLLING STONE DOES NOT GET WET 
DATA YOU HAVE MADE IT THIS FAR 

DATA YOU MUST BE A CRACK AT CODES 

DATA WORDS OR MESSAGES YOU MUST KNOW 
THE CODE 

DATA IF THEY WERE ALL AS SIMPLE 

DATA IF YOU WANT TO QUIT THINK AGAIN 
DATA WE ARE JUST BEGINNING 

DATA CAN YOU NOT WORK FASTER 

DATA PERHAPS YOU ARE BEGINNING TO 
DEHYDRATE 

DATA PERHAPS YOU 
TOMORROW 

DATA HIGH ON A MOUNTAIN BREAKING A CODE 
DATA IF YOU MADE IT THIS FAR BE A SPY 
DATA MICRO CHIPS ALL OVER THE FLOOR 


:GOTO 460 
OF LIST 


HAVE TO WORK 
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29160 DATA HAVE YOU THOUGHT OF ENTERING A 
SLAVUL UF LUUE 

°9170 DATA ALL THE TIDES AND A FULL MOON 
COULD NOT STOP YOU NOW 

9180 DATA SAY YES IF YOU WANT TO QUIT AND I 
WILL NOT RESPOND 

9190 DATA A ZEBRA MUST HAVE STRIPES FOR THE 
FBI FILES 


Variables and Strings 


A§ - General input 

U$(D - For messages 

M(I) - For used messages 

X$(1) - Correct order of letters 

L$(1)-Random order of letters L(I) - Used letters 

W - Number of letters and spaces per message (LEN) 

A - General counter 

I - General purpose, for letters 

WD - Counter, messages used 

X - Random select/placement of letters into L$(I) 

Z$ - For placement of letters E,I and O into their proper locations 
T$ - Letters of message (coded) 

P - Placement of letters (input) at video PRINT @locations 
X$ - For user letter entries 

Q$ - User's input message 

CR - Counter, correct messages 

ML. - Counter, missed letters 

SK - Messages skipped or incorrect 


Explanation of the Program Lines 


Line 20 clears 700 bits of memory for string storage (Q$). 

Lines 30-200 print the general instruction. 

Lines 210-220 dimension the variables and strings and 
initialize the counter for the messages used. 

Line 230 contains a GOSUB to line 4000 where the data list is 
read into the U§ array if this hasn’t already been done. A random 
message is selected and then deleted from the list so it will not be 
reselected. The return is made to line 230 where W$ is set to the 
contents of the W$(X) message, and W is set to the length of W$. 

Lines 240-290 sets the subscripted string, X$, to the 26 letters 
of the alphabet. 

Lines 300-360 select random letters from the alphabet, and 
places them within L$(A). 
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Lines 370-450 check the location of the letters E, I, and O and 
interchange them with the three correct letters if necessary. 

Lines 460-550 print the entire message in coded form. 

Lines 560-640 use the INKEY$ function for user entry of the 
letters. If X$ is not equal to null, the program branches to line 650. 

Line 650 tests the ASC value of X$ for a possible backspace 
entry. 

Line 660 prints the contents of X$ at location P. Location P is 
then advanced by one, and the count of the letters is increased by 
one (A). 

Line 670 checks the letter counter, A. If the value is greater 
than W, the entire message has been entered. 

Line 680 recycles back to INKEY$, if the message is not 
finished. 

Lines 690-730 backspace one letter if ASC(X$) = 8 and de- 
crease the location variable (P) and the counter (A) to match the 
backspace. 

Lines 750-770 accumulate the total message entered by user. 

Lines 900-1130 test for correct message entry. If the entry is 
correct the counter, CR, is advanced by one and another message 
will be selected (if any remain). If it is incorrect, the user will have 
the opportunity to try the same message or skip it and go to another 
one. 

Lines 1200-1300 print the final messages and terminates the 
program. 

Lines 4000-4100 were explained under line 230 above. 

Lines 5000-5190 are the correct messages. 
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MATH-A-CODE 


This program is similar to Words-Zit. Each problem you receive 
will have the numerals encoded as letters of the alphabet. Read all 
the instructions carefully before playing, noting exactly what letters 
represent the Os (zeros) in any answer. It will mean the difference 
between winning and losing! 


Sample Run 
MATH-A-CODE 


THE INSTRUCTIONS? YES 

IN THESE MATH PROBLEMS YOU WILL MULTIPLY TWO 
NUMBERS, THEN ADD ANOTHER TO THE ANSWER— 
SIMPLE, BUT HAVE YOU TRIED IT LATELY USING LETTERS 
FROM THE ALPHABET? 

EACH LETTER FROM THE ALPHABET WILL REPRESENT A 
NUMBER FROM 1-9 AS YOU WILL SEE IN A SAMPLE. EACH 
NUMBER WILL ONLY BE USED ONCE IN EACH PROBLEM. 


PRESS ENTER? 

STUDY THIS SAMPLE: 

HDJ * FGC + BIE = EBFFAC. 

THE ANSWER IN THE ABOVE SAMPLE CONTAINS A 0 
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z 


Kea) 


~< 


y 


START 


PRINT 
INSTRUCTIONS 


GET 
NUMBERS 1-9 


RANDOM SELECT 


PRINT PROBLEM 


INPUT O$ 


PLACE 
TLS TOGETHER 


Q$ = TLS 


POINT ADVANCE 


CLEAR VIDEO 


MESSAGE 


Kl 


Ky 


Flowchart for 
Math a Code. 


Zz 
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(ZERO). THIS IS REPRESENTED BY THE LETTER A ANVY- 
HIME YOUR ANSWER CONTAINS A 0 (ZERO), IT WILL BE 
THE LETTER BEFORE THE FIRST LETTER IN THE SET; L.E., 
IF THE FIRST LETTER IN ASET ISR, THE ZERO, IF NEEDED, 
WOULD BE THE LETTER Q. 

PRESS ENTER? 

REMEMBER, ALL LETTERS WILL REPRESENT THE NUM- 
ERALS 1-9 ONLY ONCE IN EACH PROBLEM. YOU WILL 
HAVE A SET OF 20 PROBLEMS TO COMPLETE ONCE YOU 
BREAK THE CODE, THINGS WILL GO QUITE SMOOTHLY 

PRESS ENTER TO BEGIN? 

HED*GCJ + BFI = 7AEFGRT 

XSW*QUY + RVT = ?RETAEE 

SRL#PTN + MOQ = ?UJYTT 

MLK*JGI + NHF = 2M 


QTR*PSW + UOV = ?RETTCV 


VQU«ORP + TNS = ?7DEAABC 
FGH*#LW + KDE = 2?CXXVEG 
GHF*ECJ + DBI = ?GTTED 
MJN*ILG + KHF = ?HAACD 
FIL*JEH + DKG = ?RATIG 
TON*PRS + QML = ?HAAES 
FEJ*GIB + CHD = ?2XXSZD 
NLK*MFG + IHJ = 27HTFFD 
XUR*SWT + YVQ = 2JHHASD 
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HJE*FCB + DGI = ?VERRA 
FDIxEHJ + GLK = ?7ACDDB 
STR*POV + UQW = ?WAZXD 


XSR*TYV + UWQ 


?BGTTD 
PSN#*RMK + LOQ = ?7EFFAC 
CGH+IKE + JFD = 7ERRGH 


TOTAL POINTS FOR CORRECT 
ENTRIES ARE: 0 


YOU ARE READY TO TRY 
20 MORE PROBLEMS, RIGHT? NO 
NATURAL BORN QUITTER!!! 


Ail answers were missed on purpose so as to not reveal the 
code. 


Program Listing 


10 REM PROGRAM TITLE: MATH-A-CODE 

20 CLS: TP=0 

30 PRINT'MATH-A-CODE" 

940 INPUT"THE INSTRUCTIONS" ;X5 

20 IF X$="N" OR X$="NO" THEN 300 

60 PRINT" IN THESE MATH PROBLEMS" 

69 PRINT" YOU WILL MULTIPLY" 

70 PRINT"TWO NUMBERS, THEN ADD ANOTHER" 

79 PRINT"TO THE ANSWER--SIMPLE. BUT, HAVE" 
80 PRINT"YOU TRIED IT LATELY USING LETTERS" 
85 PRINT" FROM THE ALPHABET?" 

90 PRINT"EACH LETTER FROM THE ALPHABET" 

99 PRINT"WILL REPRESENT A NUMBER FROM" 

100 PRINT"1-9, AS YOU WILL SEE IN A SAMPLE." 
105 PRINT" EACH NUMBER WILL ONLY BE USED" 
110 PRINT" ONCE IN EACH PROBLEM." 

115 PRINT 

120 INPUT" ENTER";X$§: CLS 
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125 PRINT"STUDY THIS SAMPLE:" 
130 PRINT"HDJ * FGC + BIE = EBFFAC" 

135 PRINT"THE ANSWER IN THE ABOVE SAMPLE" 
140 PRINT"CONTAINS A 0 (ZERO). THIS IS" 
145 PRINT"REPRESENTED BY THE LETTER '‘A'." 
150 PRINT" ANYTIME YOUR ANSWER CONTAINS" 
155 PRINT"A 0 (ZERO), IT WILL BE THE" 
160 PRINT"LETTER BEFORE THE FIRST LETTER" 
165 PRINT" IN THE SET; I.E., IF THE" 

170 PRINT"FIRST LETTER IN A SET IS 'R'! 
175 PRINT"THE ZERO, IF NEEDED, WOULD" 
180 PRINT’BE THE LETTER ‘Q'." 

185 PRINT 

190 INPUT"PRESS ENTER";X$:CLS 

195 PRINT“REMEMBER, ALL LETTERS WILL “ 
200 REPRESENT THE NUMERALS 1-9" 

205 PRINT"ONLY ONCE (IN EACH PROBLEM) " 
210 PRINT" YOU WILL HAVE A SET OF 20" 
215 PRINT" PROBLEMS TO COMPLETE IN" 

220 PRINT'CODED FORM. ONCE YOU BREAK" 
225 PRINT"THE CODE, THINGS WILL GO" 

230 PRINT’"QUITE SMOOTHLY..." 

235 PRINT 

240 INPUT" PRESS ENTER TO BEGIN"; X$& 

300 CLS: Y=65:J=0:' GET NUMBERS 1-9 

310 FOR I=1 TO 9:N(I)=I:NEXT 

320 [=l1 

330 N=RND(9) 

340 IF N(N)=0 THEN 330 

350 ACI)J=N:N(N)=0:L¢ I) =I 

360 I=I+4+1 

370 IF I=10 THEN 390 

380 GOTO 330 

390 ‘ PROBLEM (LETTER FORM) 

400 FOR I=1 TO 3:A$=A$4+STRS(ACI)) 

410 GOSUB 470:NEXT: PRINT" * "; 

420 FOR IJ=4 TO 6:A1$=A1$4STRS(A(I)) 

430 GOSUB 470:NEXT:PRINT" + "; 

4940 FOR IT=7 TO 9:A2$=A2$4STRSCACI)) 

450 GOSUB 470:NEXT:PRINT" = "; 

460 GOTO 500 

470 PRINT CHRS$(AC1)4Y); 

480 RETURN 

500 ‘ USER ENTRY 

510 INPUT Qs 

§20 ' TOTAL 

530 T=VALCAS)*VAL(A1$)+VAL(AZ$) 

540 TS=STRS(T) 
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550 ' TOTAL TO STRING 
560 FOR I=2 TO LEN(TS) 

570 TL$=TL$+CHR$(VAL(MID$(T$,1,1))+Y) 
580 NEXT 

590 ' COMPARE 

600 IF Q$<(>TL$ THEN 620 

610 PI=PI+INT(T/100):' POINTS 

620 TP=TP+1:' TOTAL PLAYS 

630 J=J+1:1F TP=20 THEN 800 

640 AS=""lAL$=a"":A26=a"" 

650 T$s"":TL$s"" 

660 Y=RND(80) 

670 IF ¥<=64 THEN 660 

680 PRINT 

690 IF J=7 THEN 300 

700 GOTO 310 

800 ' MESSAGE / FINAL 


810 CLS 

820 PRINT'TOTAL POINTS FOR CORRECT" 
830 PRINT"ENTRIES ARE: ",;PI 

840 PRINT 


890 PRINT YOU ARE READY TO TRY" 

860 PRINT'20 MORE PROBLEMS, RIGHT"; 
870 INPUT X§& 

880 IF X$S="N" OR X$="NO" THEN 900 
890 TP=0:J=7:GOTO 640 

900 PRINT 

910 PRINT"NATURAL BORN QUITTER !!!" 
920 END 


Variable and Strings 


TP - General counter, total problems 

X$ - General input string 

Y - ASCII contents, for coding 

J - Simple counter for clearing of video, when the number of prob- 
lems reaches 7 

N (I) - Numerals 1-9 for coding 

A(I) - Random value as above for coding 

A§,A1$,A2$ - STR§$ contents of code for totals 

Q$ - User input of answer in letter form 

T - The total value of Al, Al$, and A2$ 

T$ - STR$ of T (above) 

TL§$ - For total in letter (code) form 

PI - Point total 
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Explanation of the Program Lines 

Line ZU initializes tne variable Tr for ule Count Ol ile ivtal 
problems. 

Lines 30-240 display the instructions for play. 

Line 300 initializes the variables Y and J. 

Lines 310-380 set the subscripted variable N(I) to the numer- 
als 1-9; then selects the numerals 1-9 in a random fashion and places 
them in subscripted variable A(I), and finally deletes the number 
selected. 

Lines 390-480 print the problem in its coded form. 

Lines 500-510 allow the user to input the answer in letter form. 

Lines 520-580 put together the answer in coded letter form. 
This is done after the user has entered his or her answer so no 
cheating can take place. 

Lines 590-600 compare answers. 

Line 610 increases the score if the answer is correct. 

Line 620 advances problem counter by one. 

Line 630 increases the problem count by one. If J is equal to 7, 
the video is cleared (line 690). If TP is equal to 20 the program 
branches to final message. 

Lines 640-700 sets the strings to null, and get another amount 
for Y, and then recycle back for another problem. 

Lines 800-920 print the total points accumulated and ask if the 
user wants another set. If he does not, the program 1s terminated. If 
he does, variables J and TP are initialized and the program recycles 
to the beginning. 
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Have you ever seen so many code programs? Using the sound 
routine, the computer will select three digits from the numerals 
1-9. The computer will then beep each digit. Each tone will repre- 
sent a specified digit. You will enter your guess of the 3 digits using 
the INKEY$ function. The computer will beep each of your guesses 
as you press the numeral key. Match the tones and you've got the 
code, but watch out, you'll only have a certain amount of time before 
computer changes one of the digits! Remember to use the proper 
value for MC in line 370. Refer to page 3. 


Sample Run 


"| MASTER CODE :: 
INSTRUCTIONS? YES 


READ THE INTRODUCTORY PARAGRAPH 
IN THE BOOK. REMEMBER THAT THE 
COMPUTER WILL HOLD A MASTER 
CODE FOR ONLY SHORT PERIODS OF 
TIME AND THEN CHANGE ONE DIGIT 

OF IT. AFTER A LENGTH OF TIME, IF 
YOU DO NOT BREAK THE CODE, 

YOU'LL BE OUT OF THE GAME. 

LISTEN FOR THE THREE BEEPS: 

THESE WILL BE YOUR CLUE TO 
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PRINT 
INSTRUCTIONS 


NUMBER OF 
PLAYERS 
SELECT THREE 
DIGITS— BEEP 
USER CODE 
INPUT 


PRINT VAL(CS) 


COMPARE- 
CORRECT 


MESSAGE 
cc =CC +1 


Flowchart for Master Code. 
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CHANGE ONE 
DIGIT—BEEP 


TIME HAS 
EXPIRED 


GET ANOTHER 
Ni PLAYER 
Y 


FINAL 
MESSAGE 
STOP 


THE MASTER CODE. NUMBERS IN 
THE CODE ARE 1-9 (3 DIGITS). 


NUMBER TO PLAY? 2 


FIRST NAMES OR INITIALS 
OF THESE 2 PLAYERS? E.F. 
G.T. 


E.F. 


WILL PLAY NOW, LISTEN 


TO THE THREE TONES. 


Program Listing 


10 

20 

30 

40 

90 

60 

70 

80 

90 

100 
110 
120 
130 
140 
130 
160 
170 
180 
190 
220 
260 
270 
z280 
290 
300 
310 
320 
330 
340 
330 
360 


REM PROGRAM TITLE: MASTER CODE 
CLS 
PRINT": : MASTER CODE ::" 
RANDOM 
INPUT" INSTRUCTIONS"; X$§ 
IF X$<>"YES" THEN 250 
PRINT 
PRINT" READ THE INTRODUCTORY PARAGRAPH" 
PRINT" IN THE BOOK. REMEMBER THAT THE" 
PRINT" COMPUTER WILL HOLD A MASTER" 
PRINT“ CODE FOR ONLY SHORT PERIODS OF" 
PRINT'"TIME AND THEN CHANGE ONE DIGIT" 
PRINT"'OF IT. AFTER A LENGTH OF TIME," 
PRINT" IF YOU DO NOT BREAK IT, YOU'LL" 
PRINT" BE OUT OF THE GAME." 
PRINT" LISTEN FOR THE THREE BEEPS," 
PRINT" THESE WILL BE YOUR CLUE TQ" 
PRINT" THE MASTER CODE. NUMBERS IN" 
PRINT" THE CODE ARE 1-9 (3 DIGITS)." 
INPUT"NUMBER TO PLAY (1-4)";PA 
IF PA<1 OR PA)4 THEN 250 
PRINT" FIRST NAMES OR INITIALS" 
PRINT" OF THESE"; PA; "PLAYERS"; 
FOR I=1 TO PA: INPUT NS$(1I1) 
NEXT 
V=1 
NS=N$(V): PRINT 
PRINT N$;“ WILL PLAY NOW. LISTEN" 
PRINT"TO THE THREE TONES." 
REM NUMBERS IN CODE 
REM LOCATION FOR BEEPS 
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370 
380 
390 
400 
410 
420 
430 
9440 
4350 
460 
470 
480 
490 
300 
210 
220 
330 
740 
290 
260 
270 
280 
600 
610 
620 
630 
640 
650 
660 
670 
680 


690 
700 


710 
720 
730 
740 
730 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
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N=3:MC=31266 

REM TOTAL NUMBERS IN SET 

FOR I=1 TO 9¥:N(CI)=1:NEXT 

FOR X=1 TO 1500:NEXT:REM GET CODE 
X=1:P=95:PL=102:D=0 
A=INTCRND(0O)*9)41 

IF NCAd=0 THEN 420 
ACX)=A:N(A)=0:POKE MC,A*A+140 
U=USR(0):X=X+1 

IF X£>N THEN CLS:GOTO 480 

GOTO 420 

M=0:T=0:REM BEGIN TIME 
L=64:G=0:IF M=1 THEN 910 
PRINT@O,"THE CODE ?", 
CS=INKEYS 

T=T+1:TM=INT(T/20) 
PRINT@15,"TIME: “;,TM; 

IF cs="" THEN 600 
H=VAL(C$):POKE MC,H*H+140 
U=USR(0):PRINT@L,H; :L=L+2 
G=G+1:H(G)=H: IF G=N THEN 620 
REM TOTAL TIME 

IF TM<>10 THEN 9510 

GOTO 720 

REM COMPARE 

FOR W=1 TO N 

IF HCW) <>ACW) THEN 670 

NEXT 

GOTO 1000 

PRINT@L+64-N*2," INCORRECT", 
FOR X=1 TO 500:NEXT: T=T+6 
PRINT@L+64-N*Z,STRING$ (9,32); 
PRINT@L-N*2,STRINGS (N¥*2, 32) ; 
GOSUB 820:M=1:GOTO 4970 
PRINT@21,"* EXPIRED *",; 

REM CHANGE RANDOM NUMBERS 
Y=RND(N) 

EX=EX+1: IF EX=7 THEN 950 
A=INTCRND(0)*9)+4+1 

IF N(A)=0 THEN 760 
ACY)=A:NCA)=0:POKE MC,A*A+140 
U=USR(0):GOSUB 1160 
PRINT@21,STRING$(11,32),; 
PRINT@L-N*2,STRINGS (N¥Z,32);,: GOTO 
REM ATTEMPTED SEQUENCES 

IF M=0 THEN 850 

GOTO 860 

PRINT@35," ATTEMPTED SEQUENCES:"; 
FOR W=1 TO N: PRINT@P,H(CW) ; 
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870 P=P+2:NEXT 

880 P=P-N*2+64 

890 IF P)=999 THEN 9310 

900 RETURN 

910 P=PL 

920 PL=PL4+N*2+1 

930 D=D+1:IF D=4 THEN 950 

940 GOTO 900 

930 REM TIME EXPIRED (TOTAL)? 

960 PRINT: IF D=4 GOSUB 1100 

970 PRINT" YOUR TOTAL TIME HAS EXPIRED, ";N5 
980 PRINT“ TOTAL CODES BROKEN =";CC 
990 GOTO 1200 

1000 REM CODE BROKEN 

1010 PRINT 

1020 PRINT" YOU'VE BROKEN THE MASTER CODE !!" 
1030 PRINT" FANTASTIC, ";N$;"!! NOW TRY" 
1040 PRINT"A NEW CODE..." 

1050 CC=CCr!1 

1060 FOR X=1 TO 1000:NEXT 

1070 GOTO 350 

1100 REM PRINT 

1110 FOR X=t TO 185 

1120 PRINT 

1130 NEXT 

1140 PRINT@0O, ; 

1150 RETURN 

1160 PRINT@L+135-N*2,"1 DIGIT CHANGED"; 
1170 FOR X=1 TO 900:NEXT 

118Q PRINT@L+135-N*Z,STRINGS$ (16,32); 
1190 RETURN 

1200 REM ANOTHER 

1210 Q¢(V)=CC:CC=0:GOSUB 1300 

1220 V=V+1:Ex=0 

1230 IF V>PA THEN 1400 

1240 FOR X=1 TO 1200:NEXT 

1250 GOTO 320 

1300 REM BEEPS (FINAL) 

1310 FOR X=1 TO 20 

1320 POKE MC,A(1)*A(1)4RND(200) 

1330 U=USR(0) :NEXT 

1340 RETURN 

1400 PRINT 

1410 PRINT"ALL HAVE PLAYED; SCORES" 
1420 PRINT'"ARE AS FOLLOWS: " 

1430 FOR I=1 TO PA 

14940 PRINT NS$CI);"'S SCORE" ;Q(1I),; 
1450 PRINT"“CODES BROKEN..." 
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1460 NEXT 


sam RK mo © 8 OP 
4 3 4 WV hr ho oe eS 


19480 PRINT"END OF MASTER CODE" 
19490 END 


Variables and Strings 


PA - Number of players (1-4) 

N$() - Names of players 

V - Counter for (total) number of players, PA 
N§$ - (Name of player) contents of N$(V) 

N - Total numbers in code 

MC - Location of machine language program (sound) 
NI) - Numerals 1-9 for code 

X -Counter, general purpose time loop 

P & PL - Print @ locations for user’s code entry 
D - Counter, general purpose 

A - Random number select 

A(X) - Numbers in code (1-3) 

U - USR call for machine language routine 

M - General purpose 0/1 variable for print statements 
T - Time counter 

TM - Total time: INT of T divided by 20 

L - Print @ location for messages 

G - user entry, counter of digits entered 

H - Value of C$ (user entry) 

H(G) - Digits selected (user entry) 

W - for the comparison of digits 

Y - selection (random) of a digit to be replaced 
EX - for termination of program, all digits used 
CC - Correct entered codes 

Q(V) - Total correct codes, current user (player) 


Explanation of the Program Lines 


Lines 50-190 display the general instructions. 

Lines 250-260 allow the user to input the number of players. 

Lines 270-300 allow the input of the first name or initials of 
each player. 

Lines 310-340 display a message that indicates who is playing. 

Line 370 sets the variable that indicates the total number of 
digits to three, and set MC to the location that will be poked for 
sound. 

Line 390 assigns the numerals 1 through 9 to the N(D) array. 
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Lines 410-470 get the three digits, and then sound a different 
tone for each. 

Lines 480-490 initialize more variables. 

Lines 500-600 let the user enter his or her selection of digits, 
output a tone for each selection, and test the amount of time 
remaining. 

Line 610 branches to line 720, if TM is equal to 10. 

Lines 620-650 compare each digit entered against digits 
selected in memory. Line 660 branches to 1000 if all are correct. 

Lines 670-710 present the message if the response was incor- 
rect. 

Lines 720-810 delete one digit and select another, beep its 
code tone, and then it returns to line 480, if EX is not equal to 7 
(which means all digits have been used). 

Lines 820-940 print all three digits the user has entered that 
did not work. They also advance or reset the PRINT @ areas for 
these codes. 

Lines 950-990 display the message indicating that time has 
expired. 

Lines 1000-1070 display the message indicating that the code 
has been broken, advance the counter CC (codes broken) by 1, and 
then return to get another code if variable EX is not yet equal to 7. 

Line 1100-1150 clear the video with print statements (blanks) 
in preparation for the termination of program. 

Line 1160-1190 display the message indicating that one of the 
three digits changed. 

Lines 1200-1250 advance the next player, if all have not yet 
played (V<PA) 

Lines 1300-1340 sound random beep tones that indicate the 
end of the program. 

Lines 1400-1490 display the total scores for all players. 
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DRIVER’S TEST 


Are you a good driver? Can you stay in your own lane or have 
enough sense to pass safely ? Up to 10 people can try their ability at 
the wheel without leaving the house. Of course, the steering wheel 
will consist of the left and right arrow keys. Watch out for head-on 
collisions, which occur rapidly, almost without warning. The test 
will conclude after a determined amount of time ..... or before. 


Sample Run 


HOW MANY DRIVERS? 2_ 
FIRST NAMES 

? ARNOLD 

2WALT 


THANK YOU... 
DO ANY OF YOU NEED THE 
INSTRUCTIONS FOR DRIVERS TEST? YES 


YOU WILL TAKE THE DRIVERS SEAT 
IN AN ATTEMPT TO COME OUT ALIVE. 
YOU WILL BE TRAVELLING DOWN A 
ROAD, THAT WILL BE 

STRAIGHT OR WINDING, YOU WILL 

BE TESTED FOR HOW WELL YOU CAN 
STAY IN YOUR OWN LANE: MEANING, 
DON'T HIT THE SHOULDER OR THE 
CENTER MEDIAN (UNLESS PASSING). 
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START 
NUMBER OF 
DRIVERS 
DRIVERS’ 
NAMES 
INITIALIZE 
VARIABLES- 


Y 


PRINT 
INSTRUCTIONS 


SET LANES 
BEGIN TEST 


_ CAR LEFT 7 
_ CAR RIGHT 7 
POINTS PER 
COLLISION 
N 
FINAL 
MESSAGE 
Y 
FINAL 
SCORES 


N 
CONTINUE 
TEST 


Flowchart for Driver's Test. 


PRESS ENTER? 


WHEN A CAR COMES UP IN FRONT OF 
YOU, YOU MUST PASS, TO DO THIS 
PRESS AND HOLD THE RIGHT ARROW 
KEY. AFTER PASSING QUICKLY MOVE 
BACK TO YOUR LANE BY PRESSING 
AND HOLDING THE LEFT ARROW 

KEY. THESE KEYS ARE ALSO USED TO 
KEEP YOUR CAR STEADY IN YOUR 
LANE. IF YOU ARE PASSING AND 
ANOTHER CAR IS ALREADY IN THE 
PASSING LANE...TAKE TO THE 
DITCH!!! 

A PERFECT SCORE IS 0 (ZERO) 
MISTAKES OR ERRORS. 

ARNOLD WILL. NOW TAKE THE WHEEL 
PRESS ENTER WHEN READY 


la 
[ t 
oan 
for 
al 
r 
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Program Listing 


10 

20 

30 

40 

20 

60 

70 

80 

90 

100 
105 
110 
120 
130 
140 
130 
160 
170 
180 
190 
200 
210 
220 
230 
240 
Z30 
260 
Z70 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


REM PROGRAM TITLE: DRIVERS TEST 

CLS 

RANDOM 

INPUT"HOW MANY DRIVERS";D 

IF D<1 OR D110 THEN 40 

PRINT" FIRST NAMES" 

FOR I=1 TO D: INPUT Q5$(¢I) 

NEXT: PRINT: YP=1 

PRINT"THANK YOU..." 

PRINT: M=0:WL=0: PA=0:TR=0:CA=0 
IF YP>=2 THEN 430 


PRINT"DO ANY OF YOU NEED THE" 

PRINT" INSTRUCTIONS FOR DRIVERS TEST"; 
INPUT I5 

IF I1$="N" OR JS="NO" OR I[$="" THEN 420 
CLS 


PRINT" YOU WILL TAKE THE DRIVERS SEAT" 
PRINT" IN AN ATTEMPT TO COME OUT ALIVE." 
PRINT" YOU WILL BE TRAVELLING DOWN A" 
PRINT" ROAD THAT WILL BE" 

PRINT"STRAIGHT OR WINDING. YOU WILL" 
PRINT" BE TESTED FOR HOW WELL YOU CAN" 
PRINT"STAY IN YOUR OWN LANE; MEANING," 
PRINT" DON'T HIT THE SHOULDER OR THE" 
PRINT'CENTER MEDIAN (UNLESS PASSING)." 
PRINT 

INPUT" KEY ENTER"; X 

CLS 

PRINT"WHEN A CAR COMES UP IN FRONT OF" 
PRINT" YOU, YOU MUST PASS. TO DO THIS" 
PRINT"PRESS AND HOLD THE <RIGHT ARROW)" 
PRINT" KEY. AFTER PASSING QUICKLY MOVE" 
PRINT" BACK TO YOUR LANE BY PRESSING" 
PRINT“ AND HOLDING THE «LEFT ARROW)" 
PRINT" KEY. THESE KEYS ARE ALSO USED TO" 
PRINT"KEEP YOUR CAR STEADY, IN YQUR" 
PRINT"LANE IF YOU ARE PASSING AND" 
PRINT“ ANOTHER CAR IS ALREADY IN THE" 
PRINT" PASSING LANE ..TAKE TO THE" 
PRINT"DITCH !!3" 

PRINT"A PERFECT SCORE IS 0 (ZERO)" 
PRINT"MISTAKES OR ERRORS." 


PRINT Q$¢(1);" WILL NOW TAKE THE WHEEL" 
PRINT“ PRESS ENTER WHEN READY"; 
INPUT X 
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450 CLS 

5NN REM TUN TANFQ ¢ MENTAN 

$910 Riz=30:R2=4944:CS=R14+3:M1=(°R2-R1)/2)+R1 
520 REM STRAIGHT OR CURVE / CAR 
9730 M3=M1:GOTO 700 

540 C=RND(2):C1=RND(2):M=((R2-R1)/2)+R1 
550 PRINT@CS,":1:";: IF ABS(C-C1)=0 THEN 580 
760 REM STRAIGHT 

970 TR=TR+1:GOTO 700 

2980 REM LEFT OR RIGHT CURVES 

3990 C2=RND(2Z2> 

600 IF ABS(C1-C2)=1 THEN 650 

610 REM LEFT 

620 IF ABS(R1-M1)>=19 THEN 670 

630 RL=R1-1:RZ2=RZ-1:M=M-1 

640 GOTO 700 

630 REM RIGHT 

660 IF ABS(R2-M1)>=19 THEN 630 

670 R1=R1+1:R2Z=R2+1:M=M+1 

680 REM LANE AND A CAR 

700 REM USER CAR MOVEMENT 

710 Q=PEEK(15340) 

720 IF R1>=960 OR R2Z2>=960 THEN 740 
730 Ri=zR1+64:R2=R2+64:M1=M1i+649 

740 PRINT@R1I,"!"; :PRINT@CS,": 0:3"; 
730 PRINT@OM, "I"; :PRINT@RZ,"!",; 

755 IF PA=3 THEN CA=CA-64 

756 IF CL=1 THEN CC=CC-64 

757 IF ABS(CA-C5)¢=3 THEN 1160 

760 IF M=0 PRINT@OM," "3 

770 IF Q=32 THEN 810 

780 IF Q@=64 THEN 830 

790 PRINT: IF TR)=225 THEN 970 

792 IF ABS(CC+64-C5)¢=3 THEN 1220 
793 IF PA¢)3 AND C5>M3 AND Q<>32 THEN 870 
800 GOTO 9300 

810 REM CAR LEFT 

812 IF C5¢=0 THEN ZT=1:GOTO 1220 
815 IF PA=3 THEN C5=C5-2:GOTO 790 
820 C5=C5-1:GOTO 790 

830 REM CAR RIGHT 

832 IF €C5>=62 THEN ZT=1:GOTO 1220 
835 IF PA=3 THEN CS=C5+2:GOTO 850 
840 C5=C5+1 

830 IF PA<¢)?3 AND C5>M34+2 THEN 870 
860 GOTO 790 

870 REM STAYING IN WRONG LANE 

88O WL=WL+1:GOTO 1000 
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900 
910 
920 
7295 
930 
9395 
740 
7350 
960 
970 
980 
1000 
1001 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1130 
1160 
1170 
1180 
1190 
1200 
1Z10 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1330 
1340 
1350 
1360 
1370 


Q1=PEEK(C5+15360+64) 
Q2=PEEK(C5+15360+66) 

IF @Qi¢)32 AND Q(>32 THEN 940 
IF Q@2<)32 AND Q()32 THEN 940 
IF ABS(M3-C5))=14 THEN 960 
GOTO 1000 

IF PA=3 THEN 1160 
REM WRONG LANE / SHOULDER 
WL=WL+1:GOTO 1000 
PRINT@O,"DRIVING TEST COMPLETED..." 
GOTO 1460 

REM CAR TO PASS 

IF PA=3 THEN 1040 

PA=RND(20) 

IF PA<)1 THEN 1330 

PA=PA+2 

IF R1¢=860 THEN PA=0:GOTO 540 

IF CA>=100 THEN 1070 

IF CP=0 THEN CA=M-6 


IF CP=1 THEN 1110 
PRINT@CA,":<Td:"; 

CP=1 

GOTO 340 

REM CLEAR IF LESS THAN USER CAR 
IF CA¢=0 THEN 1140 

GOTO 340 

PA=0:CP=0:CL=0 

GOTO 1190 


REM HEAD-ON ? 

IF ABS(CA-C5)¢=4 THEN 1220 

IF ABS(CA+41-C5)¢=3 THEN 1220 

IF PA+CP<()4 AND CS5¢R1-962 THEN 960 

IF PA+CP<¢(>4 AND C5)R2-962 THEN 960 
GOTO 340 

X=1:WL=-?9 
PRINT@CS,"*"; : PRINT@CS+2,°%"; 
PRINT@C5+649-1,"%":.: PRINT@C5+64+49,"%"; 


FOR VU=1 TO §50:NEXT 

PRINT@CS," "+ PRINT@C5 +6441 ,"%",; 
PRINT@C5+64-3, " oar 

FOR VUe1 TO 25 :NEXT 

X=X+1 

IF X>=11 THEN 1400 

GOTO 1230 


REM CAR IN OPPOSITE LANE 

IF M{(896 OR PA()10 AND PAC>15 THEN 540 
IF CL=1 THEN 540 

CL=1:CC=M+2 

PRINT@M+2,":--:"; 
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1380 GOTO 5340 

19400 REM FINISHED ¢ VEULEADED 

1410 PRINT@O, ; 

1420 PRINT" YOU HAVE BECOME ANOTHER" 
1430 PRINT"“HIGHWAY STATISTIC." 

1435 IF ZT=1 THEN ZT=0:GOTO 1460 
14940 PRINT'MOVE TO THE PASSING LANE" 
1450 PRINT"“A LITTLE SOONER... .NEXT TIME." 
14460 UPCYP)=WL: YP=YP+1 

1470 IF YP>D THEN 1520 

1480 PRINT 

1490 PRINT Q$C(YP);'" WILL NOW TAKE THE" 
18500 PRINT"WHEEL, GOOD LUCK !!!t" 
13510 CP=0:CL=0:CC=0:GOTO i100 

1320 FOR T=1 TO 2000:NEXT:CLS 

1330 PRINT"END OF DRIVING TEST." 
13540 PRINT" TOTAL NUMBERS OF ERRORS" 
1550 PRINT"ARE AS FOLLOWS: " 

1360 FOR I=1 TO D 

1570 IF UP(I)=-39 THEN 1620 

1380 PRINT Q5¢(1);" HAD"; UPCI),; 

1390 PRINT"TOTAL ERRORS." 

1600 NEXT: 

1610 GOTO 1640 

1620 PRINT Q@$C(I);" IS DECEASED..." 
1630 GOTO 1600 

1640 PRINT 

1650 PRINT"END OF DRIVERS TEST." 
1660 END 


Variables and Strings 


D - Number of drivers 

QS (1 - First names of the D drivers 
YP - Players advance (counter) 

WL - Counter, staying in wrong lane 
PA - For use with alternate car 

CA - Alternate car 

R1 - Left side of lane 

R2 - Right side of lane 

Q1 & Q2 - Test for collisions 

C5 - User’s car location 

M & M1 & M3 - Center lane (median) 
C & Cl - Determine if straight or curved lanes will be used 


TR - Length of driving test, terminates when TR is greater than or 


equal to 225 
C2 - Left or right curve 
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Q - User’s key closure 

CL - Car already in opposite lane 

CC - Alternate car location 

UP(YP) - Current player’s score, UP(YP) = — 99 denotes that 
player is deceased (had head-on collision) 


Explanation of the Program Lines 


Lines 10-450 determine the number of drivers, initialize sev- 
eral of the variables, and display the general instructions. 

Lines 500-670 set the variables for lane location and left or 
right curves. 

Lines 689-750 test for user’s car movement and print the two 
lanes down the video screen. 

Lines 755-757 print the other car and checks for a pass or a 
collision. 

Line 760 clears the center median. 

Lines 770-780 branch to the appropriate lines for the user’s left 
or right driving movements. 

Line 790 includes a print statement that keeps the lanes jump- 
ing to simulate car movement and tests for a completed drivers test 
by determining whether or not TR is greater than or equal to 225. 

Line 792 checks for a collision. 

Line 795 tests the user’s car in case he or she is staying in 
wrong lane. 

Lines 810-820 manipulate the variables to move the user’s car 
to the left. 

Lines 830-860 manipulate the variables to move the user’s car 
to the right. 

Lines 870-960 increase the counter for the user staying in the 
wrong lane and also test for collisions with the other car. 

Lines 970-980 display the message that the test is over. 

Lines 1000-1100 will print another car at bottom of video if the 
arguments are met, and there is not already another car at that 
location. 

Lines 1110-1150 clear the appropriate variables of the other 
car if the location of that car is less than the present location of the 
user's Car. 

Lines 1160-1310 test for a head-on collision with the other car, 
demolish bothif conditions are met, and branch toa message to go to 
the next driver. 

Lines 1330-1380 print a car in the opposite lane (the third car). 

Lines 1400-1660 advance to the next driver (player), print all 
scores, and terminate the program if conditions are met. 
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WHAT IS IT? 


You just might be saying ‘‘What is it” to yourself after com- 
pleting the game! The computer will give you five different clues to 
a selected word. Your score will be determined by how many 
guesses it takes you to figure out the word. Up to four people can 
beat their brains out with this one. 


Sample Run 


---WHAT IS IT?--- 

YOU WILL HAVE UP TO FIVE 

CLUES TO HELP YOU FIGURE OUT WHAT WORD THE 
COMPUTER HAS STORED IN ITS 
MEMORY. THE PLAYERS CAN TAKE 

AS MANY GUESSES AS THEY WISH, 

BUT THE MORE GUESSES IT TAKES 
YOU, THE LESS YOU'LL WIN. 

YOUR SCORE FOR EACH WORD STARTS 
AT 50; THEN 10 POINTS ARE DEDUCTED 
FOR EACH NEW CLUE. 

EACH ITEM CONTAINS 

ONLY ONE WORD; I.E. ‘A SWORD’ 
WOULD JUST BE INPUT AS 

‘SWORD... 


30 


NUMBER TO PLAY? 2 

FIRST NAMES OF THESE 2 PLAYERS, PLEASE 
?ERED 

2YIZZY 


FRED WILL PLAY..... 


FRED THIS 1S CLUE NUMBER 1 
TO DESTROY 
WHAT IS THE WORD? GET RID OF 


FRED THIS IS CLUE NUMBER 2 
REMOVE 
WHAT IS THE WORD? TAKEAWAY 


FRED THIS IS CLUE NUMBER 3 
WEAR AWAY 
WHAT IS THE WORD? RUIN 


FRED THIS IS CLUE NUMBER 4 
CAUSE TO DISAPPEAR 
WHAT IS THE WORD? ERASE 


FRED THIS IS CLUE NUMBER 5 
ERASED 

WHAT IS THE WORD? DESTROY 
SORRY, FRED THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


YIZZY WILL PLAY..... 


YIZZY THIS IS CLUE NUMBER 1 
TO USE IS TO PAY 
WHAT IS THE WORD? RESTROOM 


YIZZY THIS IS CLUE NUMBER 2 
GOES ALMOST EVERYWHERE 
WHAT IS THE WORD? CAR 


YIZZY THIS IS CLUE NUMBER 3 
LOTS OF NOISE 
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WHAT IS THE WORD? KIDS 


YIZZY THIS IS CLUE NUMBER 4 
TERRIFIC SPEED 
WHAT IS THE WORD? RUNNER 


YIZZY THIS IS CLUE NUMBER 5 
SST IS ONE 
WHAT IS THE WORD? JET 


SORRY, YIZZY THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


FRED WILL PLAY..... 


FRED THIS IS CLUE NUMBER 1 
STRIPES OR SOLID 
WHAT IS THE WORD? ARMY 


FRED THIS IS CLUE NUMBER 2 
LARGE IS BETTER 
WHAT IS THE WORD? CAR 


FRED THIS IS CLUE NUMBER 3 
EATEN IN WARM WEATHER 
WHAT IS THE WORD? FRUIT 


FRED THIS IS CLUE NUMBER 4 
BETTER ICE COLD 
WHAT IS THE WORD? BEER 


FRED THIS IS CLUE NUMBER 5 
BUST IF DROPPED 

WHAT IS THE WORD? BOTTLE 
SORRY, FRED THAT WAS 5 


CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


YIZZY WILL PLAY..... 
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START 


INSTRUCTIONS 


PLAYERS 
AND 
NAMES 


READ DATA 
GET RANDOM 
WORD 
PRINT PLAYER 
PRINT CLUE 


POINTS FOR 
PLAYER 
DELETE WORD 


ALL FIVE 
CLUES USED 


GET ANOTHER 
CLUE 


Loc 


ADVANCE TO 
NEXT PLAYER 


Flowchart for What Is it? 


FINAL PLAYERS 
SCORES 


STOP 
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YIZZY THIS IS CLUE NUMBER 1 
TO DESTROY 


WHAT IS THE WORD? BEAT 


YIZZY THIS IS CLUE NUMBER 2 
REMOVE 
WHAT IS THE WORD? CARRYOUT 


YIZZY THIS IS CLUE NUMBER 3 
WEAR AWAY 
WHAT IS THE WORD? CARRYOUT 


YIZZY THIS IS CLUE NUMBER 4 
CAUSE TO DISAPPEAR 
WHAT IS THE WORD? FLUSH 


YIZZY THIS IS CLUE NUMBER 5 
ERASED 
WHAT IS THE WORD? PENCIL 


SORRY, YIZZY THAT WAS 5 
CLUES AND YOU DID NOT 
ENTER THE RIGHT WORD. 


STOP 


This is not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: WHAT IS IT? 

Z0 CLEAR 1000 

30 RANDOM: CLS 

40 DIM W$(16),A5(80),R(16) 

90 PRINT"'--- WHAT IS IT? ---" 

60 FOR T=1 TO 1200:NEXT 

70 PRINT"YOU WILL HAVE UP TO FIVE" 

80 PRINT'CLUES TO HELP YOU FIGURE OUT WHAT 
WORD THE" 

90 PRINT"COMPUTER HAS STORED WITHIN IT'S" 
PRINT" MEMORY THE PLAYER CAN TAKE" 
PRINT"AS MANY GUESSES AS THEY WISH," 


100 
i10 
120 PRINT" BUT, THE MORE GUESSES IT TAKES" 
130 PRINT"YOU, THE LESS YOU'LL" 

140 


PRINT'WIN.YOUR SCORE STARTS" 


i930 
160 
170 
i180 
190 
z200 
210 
zZ220 
230 
240 
290 
260 
270 
zZ80 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
9460 
470 
480 
490 
900 
210 
220 
230 
240 
949 
930 
3960 
970 
980 
290 
600 
610 


PRINT"AT 50.10 POINTS ARE DEDUCTED" 
PRINT“ FOR EACH NEW CLUE." 

PRINT" EACH ITEM CONTAINS" 
PRINT"ONLY ONE WORD, I.E. ‘A SWORD'" 
PRINT" WOULD JUST BE INPUT AS" 
PRINT" 'SWORD'...." 

FOR T=i TO 10000:NEXT:CLS 
INPUT'NUMBER TO PLAY (1-4)";AM 

IF AM<1 OR AM)4 THEN PRINT:GOTO 220 
PRINT" FIRST NAMES OF THESE"; AM; 
PRINT" PLAYERS, PLEASE" 

FOR I=i1 TO AM 

INPUT X$(¢(I):NEXT 

I=1:U=1 

X$=X$(I):PRINT X$;" WILL PLAY..... " 
PRINT: IF U)=2 OR UU<)0 THEN 340 
C=1:FOR A=1 TO 16:READ WS$(¢A) 
R(A)=A:NEXT 

FOR A=1 TO 80:READ AS$(A) :NEXT 

REM GET ONE RANDOM WORD 

REM IF NOT DONE 

R=RND(16) 

IF R(R)=0 THEN 360 
WS=W$(R):J=R*5-4:JJ=J4+4:TP=50 
PRINTX$;" THIS IS CLUE NUMBER";C 
AS=A$(J):PRINT A$:REM AS(J) FOR CLUE 
INPUT"WHAT IS THE WORD";WWS5 

IF WW$(>WS THEN 440 

R(R)=0:GOTO 560 

IF J=JJ THEN 470 
TP=TP-10:J=J+1:C=C+il 

PRINT:GOTO 390 

PRINT: TP=0 

PRINT'SORRY, ";X$;" THAT WAS";C 
PRINT"'CLUES AND YOU DID NOT" 

PRINT" ENTER THE RIGHT WORD." 

IF AM=1 THEN 540 

I=I +1 

IF I>)AM THEN I=1 

C=1:U=sU+1:IF U)=17 THEN 800 

IF G=1 AND U)UU THEN 600 

FOR T=1 TO 1500:NEXT:CLS:GOTO 290 
TP(I)=TP(I)+TP: PRINT 

PRINT'THAT IS THE WORD ";X$ 

PRINT" YOU NOW HAVE";TP(1I); "POINTS. * 
GOTO 510 

REM ALL USED 

FOR T=1 TO 2000:NEXT 
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620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
800 
810 
820 
830 
840 
850 
860 
870 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
iz00 
1205 
1210 
1220 
1230 
1240 
1290 
1260 
1270 
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CLS 


PRIN" ALL WUnDS 


iN ONG VATA BidST.” 


PRINT"'HAVE BEEN USED.TOTAL SCORES" 
PRINT" FOR THE PLAYER ARE: " 
FOR I=1i1 TO AM 


PRINT" POINTS FOR 


"UXSC1)5" ARE: "; 


PRINT TPCI) 


NEXT 


PRINT 


PRINT" END OF GAME RUN." 


END 


REM TEST FOR ALL USED 


G=1 


U=0:FOR Tz=1 TO 16 
ITF R(T)¢90 THEN U=U+1 


NEXT 


IF Us 


0 THEN 600 


REM MORE REMAIN 


UU=sU: 


U=1:GOTO 350 


REM WORD DATA 


DATA 
DATA 
DATA 
DATA 


GEAR ,WATERMELON,MONEY, OBLITERATE 
YEAR,FOOD, AIRLINER, THREAD 
TRAIN, OCEAN, PAPER, PARTY 

BOX, CENTER, SNAKE, DOOR 


REM DATA CLUES 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


HAS TEETH, DIFFERENT USES 
ROUND,MADE OF DIFFERENT MATERAL 
IN TOYS OR MACHINES 

STRIPES OR SOLID,LARGE IS BETTER 
EATEN IN WARM WEATHER 

BETTER ICE COLD,BUST IF DROPPED 
ALL NEED IT,EXCHANGES HANDS 
MANY USES,MADE IN ALL COUNTRIES 
YOU CAN'T TAKE IT WITH YOU 

TO DESTROY,REMOVE,WEAR AWAY 
CAUSE TO DISAPPEAR, ERASED 

CAN LEAP,CONTAINS 12 THINGS 

HAS MORE DAYS THAN ABOVE 
CELEBRATED AT FIRST 

STARTS WITH MONTH ONE 

YOU NEED IT,THOUSANDS OF VARITIES 
TOO MUCH MAKES YOU SICK 

MADE IN DIFFERENT WAYS 

MOSTLY GROWN 

TO USE IS TO PAY 

GOES ALMOST EVERYWHERE 

LOTS OF NOISE,TERRIFIC SPEED 
SST 15 ONE 


1280 
1290 
12993 
1300 
1310 
i320 
1330 
1340 
1350 
1360 
1400 
1410 
1420 
1429 
1430 
14395 
19440 
1430 
14960 
1470 
1480 
1490 
1500 
1310 
1520 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


LARGER THAN A HAIR,MENDS 

HAS STRENGTH,USED TO MAKE CLOTHES 
IN ALL COUNTRIES 

HAS WHEELS,USES NO GAS 
PASSENGERS, CARGO,SETS ON RAILS 

IS NOT DRY,GOES TO MANY DEPTHS 
CAN BE VIOLENT,CONTAINS FOOD 
SALTY,CAN TEAR,CAN BE FOLDED 

MADE FROM A TREE,DIFFERENT SIZES 
LIGHT OR HEAVY 

FRIENDS GATHER,TO CELEBRATE 

CAKE OR DRINKS, CANDLES 

CAN LAST ALL NIGHT,FOLDED WHEN MADE 
LIGHTWEIGHT OR HEAVYWEIGHT 

USED FOR SHIPPING OR STORING 

MADE FROM TREES 

COMPUTER CAME IN ONE 

DIVIDES,NOT LEFT OR RIGHT 

PERSON MOST IMPORTANT 


OF A CIRCLE, POINT _OF NERVES 
HAS NO LEGS,LONG OR SHORT 


CAN STRIKE,CAN KILL,SHEDS SKIN 
MOST OF WOOD,HAS A LOCK 

BLOCKS INTRUDERS, OPENS 

AND CLOSES 


Variables and Strings 


AM - Number of players (1-4) 
X$(D - First names of players 


WS) - Words 
A$(1) - 


Clues 


R(I) - For deleting already selected words 
J,JJ - For correct clue to word selected 
WW$ - User input of word 

TP - Total points 

C - Clue counter, up to 5 

U - Counter for all words 

TP) - Total points gained by current player 


Explanation of the Program Lines 
Lines 10-210 clear memory for string entries, dimensions the 
arrays for words and clues, and displays the general instructions. 
Lines 220-270 request the number of players and their first 


Names. 


Line 280 sets the counters for the players and words. 
Line 290 indicates the current player. 
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Line 300 branches to line 340 if the data has been read. 

Lincs 210.220 road all words and clues. RA) is used for 
deleting already selected words. 

Lines 340-380 select one random word and using variables J & 
JJ, get its appropriate clue (line 380). 

Lines 390-590 allow the current player to enter his or her word 
to match the clues given. If the word does not match, the total points 
(TP) are decreased by 10. The computer then gives another clue, 
until 5 clues have been presented. If the user’s word does not match, 
he or she tis given the number of points indicated by the current 
value of TP. That word is then deleted, and the program advanced to 
the next player if more than one is playing. If the current player has 
used all 5 clues and did not get the correct word, that word will be 
retained for future use, and the program again advances to the next 
player. 

Lines 600-720 print all the player’s names and their total points 
and then terminate the game. 

Lines 800-870 test to see if all data elements (words) have 
been selected and deleted. If not, program flow will branch to the 
next player, and the computer will select one of those words. If all 
the words have been used, the program is terminated using lines 
600-720. 

Lines 1000-1520 contain all the data elements for the words 
and clues. 
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IML JK 
VA BR 
Cc OEHN 


F 
Z 
S 
PLEASE SELECT? 


Games of General Interest 


Where’s the Necessary Room lets you experience drunkenness 
without touching a bottle. See if you can find your way through the 
bar with the help of an inebriated computer. 

Troubles allows you to sob on the shoulders of the computer, 
which will offer you some sound advice. 

General Store pressures you to add prices together quickly. 
The swiftest thinker will win the game. 

Respect Your Computer is a game you'll never win! 

Love One Another lets you bring your problems with your 
spouse or friend to the computer and helps you resolve your dis- 
agreements. 

Date Service helps you determine who you are most com- 
patible with. 

Key a Date allows you to keep a secret file of all those you 
might like to call for a date. The information is safe from prying 
eyes. 
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——— & Door to 
another 
floor 
Oo 
Yd 


WHERE’S THE NECESSARY ROOM? 


You’re minding your own business inside this bar that is large 
enough to let two pro-football teams battle it out. You’ve imbibed 
quite a lot of liquid, and now you have an urge, a pain, and you must 
relieve it soon or “#”! So, instead of asking anyone, you and your 
computer will now try and locate that little room. There are plenty 
of meanies in this bar as well as many rooms! Don’t let the computer 
fool you. 


Sample Run 


WHERE'S THE NECESSARY ROOM??? 
SEE THE INSTRUCTIONS...YOU DRUNK? YES 


SO HERE YOU ARE AGAIN, YOU LUSH!!! 
FILLED YOUR KIDNEYS TO THE BRINK; 
YOUR HEAD IS SPINNING AND WHAT 
DO YOU NEED ?? NATURALLY, THIS 
BEING A COMPUTER PROGRAM, | YOUR 
COMPUTER WILL TRY AND HELP YOU 
LOCATE THAT LITTLE ROOM (IF THERE 
IS ONE!!) STEP BY STEP. 

NATURALLY THIS BEING A COMPUTER 
PROGRAM (DID | SAY THAT?) | HAVE 
ALSO HAD A LITTLE TOO MUCH... 
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HIT THE WHITE KEY? 

VOU DRUNK AT 

AS | SAY...L AM ALSO A LITTLE 

TIPSY, IF MY CIRCUITS HOLD TO... 
GETHER LONG ENOUGH, WE TOGETHER 
WILL FIND THAT ROOM. WHAT'S YOUR 
NAME CLYDE? GRETA 

YOUR KIDDING, SUCH A LONG NAME. 
SO...TO FIND THAT ROOM, | WILL 
INSTRUCT YOU ON THE ROUTE. YOU 
IN TURN WILLL PRESS EITHER THE 
LEFT ARROW KEY...OR THE RIGHT 
ARROW KEY, THAT IS IF YOU 

BELIEVE WHAT | TELL YOU. IF 

LUSH, HIT THAT KEY AGAIN? 

YOU DO NOT BELIEVE ME, PRESS 
THAT LONG BAR, AT THE BOTTOM 

OF THE KEYBOARD...OK GRETA? 
EXCUSE ME WHILE | UNSCRAMBLE A 
FEW FLIP-FLOPS..... 


GRETA WE ARE NOW AT TABLE 35 

MEANING, WE MUST TRAVEL 35 

TABLES TO REACH THE BAR. 

TOTAL DISTANCE, | WOULD ESTIMATE 

TO BE AROUND 144 FEET. 

GLANCING AROUND (SOMETHING YOU’RE 

NOT TOO GOOD AT) | JUDGE THERE ARE ABOUT 68 
CUSTOMERS WE MUST GET PAST... 


OK, LUSH...1 MEAN GRETA 

GET UP AND MOVE RIGHT, AWAY 

FROM MS. FOUL MOUTH. SHE’S A MEANIE 
WE DON'T WANT TO TANGLE WITH. 


PRESS THE RIGHT ARROW OR 
THE LEFT ARROW OR THE LONG 
BAR...YOU DRUNK, QUIT BOBBIN 
YOUR HEAD !! 

OK, LUSH... MEAN GRETA 

GET UP AND MOVE LEFT, AWAY 
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PRINT 
INSTRUCTIONS 


INPUT 
NAME 


SET 
VARIABLES 


READ 
MESSAGE DATA 


MOVEMENT THROUGH 
BAR/OUTPUT 
MESSAGES 


ALL TABLES 
PASSED 
CONTINUE —- 
MOVEMENT 


SS 
<< 


PRINT MESSAGE 
ON DOOR 


FINAL 
MESSAGE 


Flowchart for Where's the Necessary Room? 
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FROM MR. SMASH. HE’S A MEANIE 
WL WOM Tt WA! FO Taare Wied. 
PRESS THE RIGHT ARROW OR 
THE LEFT ARROW OR THE LONG 
BAR...YOU DRUNK, QUIT BOBBIN’ 
YOUR HEAD !! 

WE'RE GETTING CLOSER GRETA 
HOLD THAT BLADDER !!! 


OUR DISTANCE IS NOW AT 41 FEET. 
WITH 17 TABLES AND 

STILL 79 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT'S 76 CUSTOMERS. 
A FEW JUST PASSED OUT... 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES 

STILL 76 CUSTOMERS TO GET BY. 

OK LUSH...) MEAN GRETA 

ALL DIRECTIONS POINT LEFT, AWAY 
FROM MR. P. WADDLE. HE’S A MEANIE, 
WE DON'T WANT TO TANGLE WITH. 


| SAID, GO LEFT, YOU WENT RIGHT 

GRETA, YOU ARE A LITTLE MORE 

DRUNK THAN | FIRST THOUGHT !! 

YOU JUST STEPPED ON MR. MUZZLE TOES. 
CAN’T YOU LISTEN TO DIRECTIONS ?? 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 76 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT'S 75 CUSTOMERS. 
A FEW MORE JUST PASSED OUT... 


OUR DISTANCE STANDS AT 41 FEET. 

WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 

OK LUSH...| MEAN GRETA 

LOOK RIGHT THEN MOVE RIGHT, AWAY FROM MS. LEAN 
TOO. SHE'S A MEANIE 
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WE DON'T WANT TO TANGLE WITH. 
WRONG DOOR !! 
THIS IS THE BASEMENT. 


OUR DISTANCE STANDS AT 41 FEET. 

WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 

OK, LUSH...! MEAN GRETA 

LOOK LEFT THEN MOVE LEFT, AWAY 

FROM MR. MUZZLE. HE’S A MEANIE 

WE DON'T WANT TO TANGLE WITH. 

GUESS WHAT YOU'VE JUST WALKED 

INTO? YES, THE OFFICE! FEEL EMBARRASSED, YOU 
DRUNK !! 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 
OK,LUSH...1 MEAN GRETA 


PRESS THE RIGHT ARROW OR 

THE LEFT ARROW OR THE LONG 
BAR...YOU DRUNK, QUIT BOBBIN’ 
YOUR HEAD !! 

'M SORRY, MY MISTAKE, | TOLD 

YOU THE WRONG DIRECTION GRETA. 
DINGY !! YOU SHOULDN'T HAVE 
LISTENED THIS TIME !!! 


HOW DID THAT BOTTLE THAT MS. FOUL MOUTH 
JUST BROKE OVER YOUR HEAD FEEL ?? 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 75 CUSTOMERS TO GET BY. 
EXCUSE ME, THAT’S 70 CUSTOMERS. 
A FEW MORE JUST PASSED OUT... 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 

STILL 70 CUSTOMERS TO GET BY. 
OK, LUSH...1 MEAN GRETA 
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WE WILL NOW MOVE RIGHT 


I'M SORRY, MY MISTAKE, !| TOLD 

YOU THE WRONG DIRECTION GRETA. 
YOU SHOULDN'T HAVE 

LISTENED THIS TIME !!! 


OF ALL THE MEANIES TO RUN IN TO !!! 
NEXT TIME MS. FOUL MOUTH WILL PROBABLY 
FINISHING BREAKING YOUR FACE... 


OUR DISTANCE STANDS AT 41 FEET. 
WITH 17 TABLES AND 
STILL 70 CUSTOMERS TO GET BY. 


STOP 
This is not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: WHERE'S THE 

20 REM NECESSARY ROOM ??? 

30 CLS 

40 PRINT"WHERE'S THE NECESSARY ROOM ??7?" 
90 PRINT 

60 PRINT"SEE THE INSTRUCTIONS... "; 

65 FOR [=1TOS00:NEXT: PRINT" YOU DRUNK"; 
70 INPUT X§ 

80 IF x$<o"Y¥" AND X§CO"YES" THEN DD=1: 


GOTO 275 
90 PRINT"SO HERE YOU ARE AGAIN, YOU 
LUSH !!!" 


100 PRINT" FILLED YOUR KIDNEYS TO THE BRINK;" 
110 PRINT" YOUR HEAD IS SPINNING AND WHAT" 
120 PRINT'DO YOU NEED ?? NATURALLY, THIS" 
130 PRINT" BEING A COMPUTER PROGRAM, I YOUR" 
1940 PRINT"COMPUTER WILL TRY AND HELP YOU" 
130 PRINT"LOCATE THAT LITTLE ROOM (IF THERE" 
160 PRINT"IS ONE! !)> STEP BY STEP." 

170 PRINT"NATURALLY THIS BEING A COMPUTER" 
180 PRINT" PROGRAM (DID I SAY THAT?) I HAVE" 
190 PRINT"ALSO HAD A LITTLE TOO MUCH..." 

200 PRINT 


210 
220 


230 
240 
220 
260 
270 
2795 
280 
290 
300 
310 
320 
330 
340 
3350 
360 
370 
380 
390 
400 
910 
420 
930 
440 
430 
9460 
470 
480 
470 
200 
910 
520 
930 
940 
390 
360 
270 
979 
980 
399 
600 
610 
615 
620 
630 
640 
620 


INPUT"HIT THE WHITE KEY"; X$& 
CLS 


PRINT"YOU DRUNK!!!" 
PRINT"AS I SAY...I AM ALSO A LITTLE" 
PRINT“TIPSY, IF MY CIRCUITS HOLD TO..." 
PRINT"GETHER LONG ENOUGH, WE TOGETHER" 
PRINT"WILL FIND THAT ROOM. WHAT'S YOUR" 
IF DD=1 THEN PRINT"THE "; 

INPUT"NAME CLYDE";N$ 

IF LEN(N$))>=3 THEN 310 

GOTO 320 

PRINT" YOUR KIDDING, SUCH A LONG NAME. “ 
PRINT: IF DD=1 THEN 460 

PRINT"SO...TO FIND THAT ROOM, I WILL" 
PRINT" INSTRUCT YOU ON THE ROUTE. YOU" 
PRINT" IN TURN WILL PRESS EITHER THE" 
PRINT"LEFT ARROW KEY. .OR THE RIGHT" 
PRINT"ARROW KEY, THAT IS IF YOU" 
PRINT“ BELIEVE WHAT I TELL YOU. IF" 
PRINT 

INPUT"LUSH, HIT THAT KEY AGAIN"; X$§ 
CLS 

PRINT" YOU DO NOT BELIEVE ME, PRESS" 
PRINT'THAT LONG BAR, AT THE BOTTOM" 
PRINT"OF THE KEYBOARD...OK ";N$;"?" 
FOR [=1T02000:NEXT 

PRINT"EXCUSE ME WHILE I UNSCRAMBLE A" 
PRINT’FEW FLIP-FLOPS..... " 

RANDOM 

REM TABLES 

TA=RND(50):I1F TA¢=15 THEN 500 

REM START DISTANCE FROM ROOM 
D=RND(150) 

IF D(=50 THEN 520 

REM CUSTOMERS IN BAR 

P=RND(100) 

IF P(=20 THEN 550 

REM NUMBER OF WRONG DOORS 

REM LEAVE TWO FOR FINAL 

DR=RND (7) 

IF DR<=4 THEN 580 

REM READ WRONG DOOR TITLES 

FOR I[=1TODR: READ D$(1):U(I)=1:NEXT 
FOR I=DR+1TO10:READ F$(I):NEXT 

DATA WOMEN'S ROOM, ATTIC,EXIT, BASEMENT 
DATA OFFICE,WINE CELLAR, LUNCH 

DATA LAUNDRY, DRESSING, NECESSARY 
J=DR-4:PQ=1:PJ=1:REM TIME / MEANIES 
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FOR I=1TO5:READ M$(I):M(I)5sI 
IF LEPTSE(MECT), £) 4) "M" THEN £6 
ELSE NEXT 

DATA MR. MUZZLE,MR. SMASH 

DATA MS. LEAN TOO,MS. FOUL MOUTH 

DATA MR. P. WADDLE 

REM SOME STRING CONTENTS 
K$§="STILL":B$="MY CPU HURTS" 
L$="LEFT":R$="RIGHT" : Z$="ZZZZZZZZZ2" 
FOR I=1T01500:NEXT 

PRINT 

PRINT N$;" WE ARE NOW AT TABLE";TA 
PRINT"MEANING, WE MUST TRAVEL";TA 
PRINT" TABLES TO REACH THE BAR." 

PRINT’ TOTAL DISTANCE, I WOULD ESTIMATE" 
PRINT"TO BE AROUND";D; "FEET." 
PRINT'GLANCING AROUND(SOMETHING YOU'RE" 


PRINT"NOT TO GOOD AT) I JUDGE.THERE 
ARE ABOUT"; P 


PRINT" CUSTOMERS WE MUST GET PAST..." 
REM MESSAGE ---- B§ 

=-64:1=0 

L=L+64:.l=I4+1: FOR IT1=1TO500:NEXT 
PRINT@L, STRINGS (35,32) 
PRINT@CL+30,MID$(B$,1,1):I1F L¢=896 THEN 
850 

CLS 

GOSUB 1070:GOTO 920 

PRINT'OK, LUSH...I MEAN ";N5 
T=0: RETURN 

GOSUB 900:GOSUB 925:GOTO 960 

REM MEANIE SELECT 
M=RND(5):IF M(M)=0 THEN 930 
M$=M$5 (M) :M(M)=0 


(a 


IF LEFTS(M$,2)="MS" THEN CS=". SHE" 
ELSE Cs=". HE" 

RETURN 

PRINT"GET UP AND MOVE ";,T§;", AWAY" 
PRINT" FROM ";M$;" ";C$;,"'S A MEANIE," 


PRINT"WE DON'T WANT TO TANGLE WITH." 
GOSUB 1000:GOQOTO 1130 
WS=INKEYS : T=T+41:1F Td=J*100 THEN 1025 
IF WS="" THEN 1000 

WW=ASC(WS) : RETURN 

PRINT 

PRINT" PRESS THE ";R$;" ARROW, OR" 
PRINT"THE ";L25;" ARROW OR THE LONG" 
PRINT" BAR. ..YOU DRUNK, QUIT BOBBIN'" 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1215 
1216 
1220 
1230 
1240 
12590 
1260 


1270 
12793 
1280 
1290 
1300 


1310 
1320 
1330 
1340 
1345 
1350 
1360 
1365 
1370 
1380 


1390 
1400 


1410 
1420 
1430 
19440 


PRINT" YOUR HEAD !!":T=0:GOTO 990 

REM GET LEFT / RIGHT 

FOR I=1T010 

Y=RND(2) 

IF Y=1 THEN T$=L$:GOTO 1120 

TS=R5 

NEXT: RETURN 

IF WW+85=93 THEN 1170 

IF WW+85=94 THEN 1170 

IF WW=32 THEN 1170 

PRINT:GOTO 1030 

WW=ASC(WS) 

IF ABS(T-J)>=100 GOSUB 1520 

IF T$="RIGHT" AND WW+85=94 THEN 1440 
IF T$="LEFT" AND WW+85=93 THEN 1440 

IF WW=32 THEN PRINT:GOTO 1700 

IF T$="RIGHT" THEN F$=L$ ELSE F$=R$ 
PRINT 

PRINT"I SAID, GO ";T$;", YOU WENT ";F$ 
PRINT N$;", YOU ARE A LITTLE MORE" 
PRINT"DRUNK THAN I FIRST THOUGHT !!" 
RE=RND(6) :UU=RND(5) :M$=M$§ (UU) 

ON RE GOTO 1270,1290,1320,1345,1365, 
1400 

PRINT M$;" JUST BROKE PART" 

PRINT"OF YOUR FACE !!" 

GOTO 1430 

PRINT"YOU JUST STEPPED ON ";M$;" TOES," 
PRINT"CAN'T YOU LISTEN TO DIRECTIONS 
99 tt 

GOTO 1430 

PRINT"HOW DID THAT BOTTLE THAT ";M$ 
PRINT’ JUST BROKE OVER YOUR HEAD FEEL??" 
GOTO 1430 

IF JA=1 THEN 1250 

PRINT"MOST LUSHES LISTEN, YOU ARE AN" 
PRINT“ EXCEPTION...DINGY !!!":GOTO 1430 
IF JA=1 THEN 1250 

PRINT"THREE KEYS TO PRESS, AND YOU MY" 
PRINT" DRUNK FRIEND, PRESS THE WRONG 
ONE !!" 

GOTO 1430 

PRINT"OF ALL THE MEANIES TO RUN IN 

TO !iE" 

PRINT"NEXT TIME "“;M$;"" WILL PROBABLY" 
PRINT"FINISH BREAKING YOUR FACE..." 
PRINT: E$="STANDS":GOTO 1660 

REM MOVE CORRECT ? 
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1450 
1460 
1470 
1480 
1490 
1500 
1510 
1320 
1330 
1340 
i390 
1360 
15370 
1580 
1390 
1600 
16035 
1610 
1619 
1620 
1630 
1640 
1630 
1660 
16695 
1670 
1673 


1676 
1680 
1685 
1690 
i700 
1710 
1720 
1730 
1740 
1730 


1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
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PL=RND(10) 

IF PL¢=DR THEN 1610 ELSE PRINT 
PRINT"I'M SORRY, MY MISTAKE, I TOLD" 
PRINT" YOU THE WRONG DIRECTION ";N5;,"." 
PRINT" DINGY !! YOU SHOULDN'T HAVE" 
PRINT"LISTENED THIS TIME !!1" 

PRINT: JA=1:GOTO 1250 

REM SNORE MESSAGE 

REM TAKING TOO LONG / WRONG KEY 

FOR 1=1TO LEN(ZS5) 

PRINT MIDS (Z$,1,1); 

FOR ER=1T0S0:NEXT ER 

NEXT 1: PRINT 

PRINT" THOUGHT I WOULD CUT A FEW" 
PRINT"Z'S WHILE YOU WERE LOOKING" 
PRINT"FOR THE KEYS..... ‘:PRINT 

FOR 1=1T01200:NEXT: RETURN 

IF D<=50 THEN 1830 ELSE PRINT 
PRINT"WE'RE GETTING CLOSER, "GUNS 
PRINT"HOLD THAT BLADDER !!!": PRINT 
D=(D-INT(D/TA)-10):E6="I1S NOW" 

IF D¢<=0 THEN 2300 

TA=TA-1:P=P-RND(95) 

PRINT"OUR DISTANCE ";,E5;" AT";D;,"FEET." 
IF TA¢=0 PRINT"AND "; :GOTO 1675 
PRINT"WITH ";TA; "TABLES, AND" 

IF P<=0 THEN PRINT"NO CUSTOMERS TO GET 
BY !1":GOTO 1690 

IF P¢=10 THEN KS="ONLY" 

PRINT KS," ";P;""CUSTOMERS TO GET BY." 
IF RND(TA) ¢(=10 AND XX=0 THEN 2300 
XX=0:GOTO 2100 

REM SPACE BAR ? 

PL=RND(9> 

IF PL¢<=2 THEN 1790 

PRINT"WHY? WHY DID YOU PRESS THE SPACE" 
PRINT" BAR?? OF ALL THE TIMES NOT TO" 
PRINT' BELIEVE ME, THIS TIME I WAS " 
;R6;"." 

PRINT"YOU ARE AT THE SAME PLACE YOU" 
PRINT"WERE YOU...YOU DINGY #!/#&'!" 
PRINT: GOTO 1250 

PRINT" YOU WERE RIGHT, ";N$;" I TOLD" 
PRINT"A BLOODY LIE AND YOU" 
PRINT"DIDN'T FALL FOR IT !!!" 
PRINT:GOTO 1610 

REM WRONG DOOR MESSAGE 

IF PQ)DR THEN 1615 


1890 
1860 
1870 
1880 
1885 
1890 
1900 
1910 
1920 
1930 
1940 
1943 


i930 
19355 
1960 
1970 
1980 
1990 
2000 
2010 


2020 
2025 
2030 
2040 
2045 
2050 
20355 
2060 
2065 
2070 
2080 
2100 
2110 
2120 
2130 
2140 
21350 
2160 
21693 
2170 
2175 
2180 
2185 
2190 
2199 
2200 


DA=RND(DR) 

IF UCDA)=0 THEN 1850 

V$=D$ (DA) 

U(DA)=0 : PQ=PQ+1 

IF MID$(V$,2,1)="K" THEN 2040 
DA=RND(6):IF DA=6 THEN 1615 

ON DA GOTO 1910,19740,1970,2010,2040 
PRINT" YOU'VE JUST WALKED INTO THE ";V$ 
PRINT" FEEL EMBARRASSED, YOU DINGY !! 
GOTO 2070 

PRINT'NO PLACE TO DRAIN A BLADDER HERE" 
IF LEFT$(V$,2)="OF" PRINT" IN THE ";V$;" 
":;GOTO 2070 

PRINT"THIS IS THE ";V$; 

IF RIGHTS (V$S,2)="CH" PRINT"ROOM !!" 
PRINT: GOTO 2070 

PRINT" FEEL ODD ? YOU'VE JUST STEPPED" 
PRINT" (ALMOST) STRAIGHT INTO THE ";V§ 
PRINT" HAVING PROBLEMS READING SIGNS ??" 
GOTO 2070 

PRINT'W RONG DOOR DINGY 

i {‘ 

PRINT" THIS IS THE ";,V$; 

IF RIGHTS$(V$,2)=s"CH" PRINT" ROOM" 
PRINT:GOTO 2070 

PRINT"GUESS WHAT YOU'VE JUST WALKED" 

IF LEFTS(V$,2)—2"EX" THEN 20695 

PRINT" INTO? YES, THE ";V§; 

IF RIGHTS (V$,2)="CH" PRINT"ROOM !!" 
PRINT: GOTO i920 


PRINT"“OUT THE ";V6;".":GOTO 2070 
PRINT: IF LEFTS$(V6&,2)@"EX" THEN 2250 
GOTO 2410 


REM CONTINUE MOVEMENT TO HEAD 
PJ=aPJ+1:GOSUB 900 

IF PJ<a5 GOSUB 930 

FOR I1=1T03500:NEXT:GOSUB 1070 
WEaRND(S):REM MOVEMENT MESSAGE SELECT 
ON WE GOTO 2160,2170,2180,2190,2200 
PRINT"WE WILL NOW MOVE ";T$; 

GOTO 2220 

PRINT“ALL DIRECTIONS POINT ";T$; 

GOTO 2220 

PRINT T$;" 1S THE RIGHT DIRECTION “; 
GOTO 2220 

PRINT"LOOK ";T$;" THEN MOVE ";T$; 
GOTO 2220 

PRINT"DON'T STUMBLE NOW, DINGY !!!" 
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2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
23095 
Z310 
Z315 
2320 
2325 
2330 
2340 
2330 
2360 
2370 
2380 
2390 
2400 
2410 
2920 
2930 
2440 
2300 
Z910 
2220 
29530 
2340 
22350 
2960 
Z570 
Z2980 
2590 
2600 
2610 
2620 
2630 
2640 
2630 
2660 
2670 
2680 
2690 
2700 


f2 


PRINT"MOVE SLOWLY 
IF PJ<=4 PRINT", 
PRINT 

GOTO 990 
PRINT"GOING OUT THE ";V$;" WASN'T TOO" 
PRINT" SMOOTH...TURN AROUND, THEN WE'LL" 
PRINT"CONTINUE TO LOCATE THAT ROOM. " 
FOR I=1T03000:NEXT 

GOTO 2100 

REM REMOVE HORE CUSTOMERS 

IF P¢(=3 THEN XX=1:GOTO 1690 
AA=RND(5):DF=DF4+1:XX=1 

IF DF>=4 THEN 2340 ELSE P=P-AA 
PRINT"EXCUSE ME, THAT'S";P; "CUSTOMERS. " 
IF DF>)=2 THEN MM$="MORE" 

PRINT"A FEW “;MM$;" JUST PASSED OUT..." 
IF RND(P)<¢=10 THEN 2360 

GOTO 2410 

FOR I=1T02000:NEXT: IF DF>=7 THEN 24r0 
PRINT"HOLD IT !!! THE BOUNCER JUST" 
AA=RND(3):P=P-AA 

PRINT"CARRIED OUT";AA;"MORE, FOR" 
PRINT" FIGHTING DURING HAPPY HOUR..." 
FOR I=1T02000:NEXT 


"57S; 
AWAY' :GOTO 9370 


PRINT 

ES$="STANDS": JA=0 

GOTO 1660 

REM FINAL -- ROOM REACHED 


PRINT"YOU'VE REACHED THE ROOM !!!'" 
FOR I=1T02500:NEXT 

I=RND(10) 

IF I¢=DR THEN 2530 

PRINT" IF YOU CAN KEEP YOUR EYES OPEN" 
PRINT"LONG ENOUGH...RAISE YOUR HEAD" 
PRINT"AND READ THE SIGN ON THE DOOR." 
DS=FS(I) 

X=0 

FOR I=+1T0900:NEXT 
PRINT: X=X+i 

IF X=7 PRINT@985,D5;" 
IF X¢=14 THEN 2600 
IF LEFT$(D$,1)="N" 
PRINT 

PRINT"®* T H E WRONG 
PRINT"ALL THIS FOR NOTHING, 
GOTO 2760 

PRINT"THIS IS IT !!1" 
PRINT"THE RIGHT NECESSARY ROOM 


ROOM" 
THEN 2690 
DOOR xxA9 


DINGY !/!" 


2710 PRINT"RELIEF IS ON THE WAY..." 

2720 PRINT 

2730 FOR I=1T04000:NEXT 

27940 PRINT"NOW THAT YOU ARE FEELING MUCH" 
2750 PRINT" BETTER, SHALL WE HAVE... .." 

2760 PRINT" ANOTHER RUN OF NECESSARY ROOM", 
2770 INPUT X$§& 

2780 IF X§<>"¥" AND X$¢)"YES" THEN 2810 
2790 PRINT"GET TO DRINKING. .HERE WE GO !!" 
2800 FOR 1=1T01200:NEXT: CLEAR: DD=1:GOTO 275 
2810 PRINT 

2820 PRINT" END" 

2830 END 


Variables and Strings 


DD - Instructions not needed (when equal to 1) 
N§$ - User’s name 

TA - Number of tables 

D - Distance to room 

P - Customers in bar 

DR - Wrong doors, D$ I) 

M$(I) - Meanies in bar 

J - Time loop 

PJ - Moves toward room 

M - Selection of meanie 

WW - User’s key closure 

RE - For random message, along with UU and M$ 
PL - Correct move (random) 


Explanation of the Program Lines 


Lines 10-270 display the general instructions if they are re- 
quired. 

Line 280 inputs the user’s name. 

Lines 290-470 display the rest of the instructions. 

Lines 480-720 set the variables for play and read all the data 
statements. 

Lines 750-820 are messages to the user concerning distances, 
tables, and customers. 

Lines 830-870 let the user know how the computer feels. 

Lines 900-910 display a message used by GOSUB statements 
throughout the program. 

Lines 925-955 select a meanie. 
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Lines 960-980 tell the user which direction to take. 

Lines 1000-1020 form the INKEY§ routine for the user’s di- 
rection entry. 

Lines 1025-1060 display a message indicating that the user is 
taking too long to decide. 

Lines 1070-1120 get a left/right direction for the user. 

Lines 1130-1160 sort the key closures indicating the direction 
of movement. 

Lines 1170-1430 display more messages concerning move- 
ment to the room. 

Lines 1440-1510 display a wrong move message. 

Lines 1520-1605 display a message indicating that the user is 
taking too long. 

Lines 1610-1690 display a message indicating that the distance 
and number of tables are decreasing. 

Lines 1700-1820 display messages in response to the pressing 
of the space bar. 

Lines 1830-2440 display various messages concerning the 
user’s position. 

Lines 2500-2830 display the final message printed on door of 
the room the user has come to. 
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The 
relatives 


All mix 
whiskey 


TROUBLES 


Depending upon the nature of your particular troubles, the com- 
puter will try and give you a solution. Of course, it would take more 
memory space that any computer has to cover every aspect of a 
person’s troubles, so be patient with your computer. Give it the 
precise information it requires and who knows? 


Sample Run 


TROUBLES 


SO YOU HAVE SOME TROUBLES AND 
YOU ARE TURNING TO ME, YOUR COMPUTER, 
| WILL HELP YOU IN EVERY WAY | 
CAN, USING LOGICAL DEDUCTIONS. 
PLEASE BE SPECIFIC 

WHEN ANSWERING ALL QUESTIONS 

| WILL SUBMIT TO YOU. THE MORE 
SPECIFIC YOU ARE, THE BETTER 
YOUR ANSWER WILL BE. 

USE NO COMMAS, SEMICOLONS, 
COLONS OR PERIODS. 


YOUR FIRST & LAST NAME?TARGET MOORE 
MALE (M) OR FEMALE (F)? ~ 
TRY AGAIN: CHECK IF NECESSARY. 


TAs) 


MALE (M) OR FEMALE (F)?M 


TAMIIRI CSC 
oe tw WY Ov LL AY 


DATA COLLECTED THUS FAR: 

NAME TARGET MOORE 

SEX: MALE 

CONFIRM (Y/N)?Y 

WITH MORE THAN 1 WORD AND LESS 

THAN 10, DESCRIBE YOUR TROUBLES? WOMEN 

BE A LITTLE MORE SPECIFIC, WHAT 

ABOUT WOMEN? 

WITH MORE THAN 1 WORD AND LESS 

THAN 10 DESCRIBE YOUR TROUBLES? 

CAN'T GET ENOUGH RESPONSE FROM WOMEN 
TROUBLES 


SORTING WORDS 
JUST HOW MANY WOMEN?3 


GOOD GRIEF !! 
IS ANY ONE OF THESE YOUR WIFE?YES 


DO YOU FEEL YOU ARE CHEATING ON 
YOUR WIFE AND YOURSELF ?YES 


YOU SHOULD FORGET THE OTHER 
WOMEN BEFORE YOU GET DEEPER THAN 
WHAT YOU ARE NOW...TARGET 


DO YOU AGREE 


? NO 


WHY DON'T YOU AGREE TARGET ?!1 CHOOSE TO PLAY 
THE FIELD 


BECAUSE YOU CHOOSE TO PLAY THE FIELD? 
HOW LONG HAS THIS BEEN 

GOING ON TARGET 

SELECT ONE: 

1> DAYS 


76 


START 
INSTRUCTIONS 
NAME 


MALE -— 
FEMALE 


INPUT TROUBLE 


Flowchart for Troubles. 


OUTPUT 
SOLUTIONS 


MORE 
TROUBLES 


N 
STOP 


V7 


2> WEEKS 
3> MONTHS 


4> YEARS 


24 


DID THESE WOMEN FIND OUT 
ABOUT ONE ANOTHER TARGET ?YES 


THAT'S THE TROUBLE: JUST STICK 
TO ONE WOMAN FOR AWHILE 
THINGS WILL WORK OUT MUCH 
BETTER. YOU'LL SEE, TARGET . 
LIKE TO TRY ANOTHER?NO 


END OF PROGRAM... 


Program Listing 


E10 REM PROGRAM TITLE: TROUBLES 


20 
30 
40 
20 
60 


70 

80 

90 
100 
110 
120 
130 
140 
145 
130 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
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CLS: CLEAR 1209:GOSUB 30:COTO $590 

PRINT TAB(10)"T R OU BL E §S" 

PRINT: RETURN 

PRINT"SO YOU HAVE SOME TROUBLES AND" 
PRINT" YOU ARE TURNING TO ME, YOUR 
COMPUTER." 

PRINT"I WILL HELP YOU IN EVERY WAY I" 
PRINT"CAN USING LOGICAL DEDUCTIONS." 
PRINT"PLEASE BE SPECIFIC" 

PRINT"WHEN ANSWERING ALL QUESTIONS" 
PRINT"I WILL SUBMIT TO YOU. THE MORE" 
PRINT"SPECIFIC YOU ARE, THE BETTER" 
PRINT" YOUR ANSWER WILL BE." 

PRINT"USE NO COMMAS, SEMICOLONS," 
PRINT"COLONS OR PERIODS." 

PRINT: PRINT" YOUR FIRST & LAST NAME"; 
INPUT N§:GOSUB 490 

INPUT"MALE (M) OR FEMALE (F)";,5S§ 

IF S$="M" THEN S$=s"MALE":GOTO 220 

IF S$="F" THEN SS$="FEMALE" :GOTO 220 
PRINT"TRY AGAIN; CHECK IF NECESSARY." 
GOTO 170 


CLS 

GOSUB 30 

REM BEGIN 

PRINT"DATA COLLECTED THUS FAR:" 
PRINT"NAME : "GUNS 


270 
290 
300 
310 
320 
325 
330 
340 
349 
350 
360 
370 
3795 
380 
390 
400 
410 
420 
430 
440 
445 
430 
955 
460 
969 
170 
480 
490 
900 
210 
920 
930 
240 
950 
960 
970 
580 
290 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


PRINT" SEX: ",8$ 

GOSUB 550 

INPUT"CONFIRM (Y/N)";AS$ 

IF AS<O"Y" THEN FS=“"";:GOTO 140 
DIM X$(46),AC12),A6 (12) 
Ps§="":W=1: PRINT 


PRINT"WITH MORE THAN 1 WORD AND LESS" 
PRINT"THAN 10, DESCRIBE YOUR TROUBLES" 
IF Y=1 THEN Y=0:PRINT"NO PERIODS..." 
INPUT PS$ 

FOR I=1 TO LEN(P$) 

IF MID$(P$,1,1)=" " THEN 390 

IF MIDS(PS$,1,1)="." THEN Y=1:GOTO 325 
NEXT: IF Wt=1 THEN 455 ELSE GOTO 470 
REM WORD COUNT 

W=W+ 1 

IF W)=11 THEN 430 

GOTO 380 

IF LEN(P$)¢=200 THEN 470 

PRINT" YOU'VE ENTERED" ;W; "WORDS ";NS5 
PRINT" REENTER A SHORTER VERSION." 
GOTO 325 

PRINT" BE A LITTLE MORE SPECIFIC, WHAT" 
PRINT“ ABOUT ",P$;"?" 

GOTO 325 

REM DEFINE PARTS OF PROBLEM 
CLS:GOSUB 30:GOTO 380 

REM FIRST NAME BASIS 

FOR I=1 TO LEN(NS) 

FS=FS+MID$S(N$,I1,1) 

IF MIDS(N$,1,1)=" “" THEN RETURN 

NEXT 

RETURN 

REM TIME LOOP 

FOR TIl=1TO01000:NEXT 

RETURN 

REM REPLACEMENT WORDS / WORD DATA 

FOR I=1 TO 46:READ X$(1I):NEXT: Lei :Qel 
REM WORD COUNT / WORD IN DATA LIST 
T=1:K=LENCP$) 

IF MID$(P$,1,1)=" “ THEN 650 

T=I+1:IF I=K THEN 670 

GOTO 620 

ACQ)=L:L=1:Q=Q+1:REM WORD SEPARATION 
GOTO 630 

ACQ)=L 

AC1)=0:121:Z2=2Q@:Q=1 

FOR L=ACI)4¢1 TO ACTI41)-1 
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700 AS(Q)=A$(Q)4+MIDS(P$,L,1) 

710 NEXT: Q=Q+1 

720 IF I=Z THEN 740 

730 I=I+1:GOTO 690 

740 REM LAST WORD IN SENTENCE 

750 FOR L=ACI)+1 TO LEN(PS$)~ 

760 A$(Q)8A5(Q)4+MIDS(P$,L,1) 

770 NEXT: Q=1 

780 ASCZI=AS(Z4+1) -ASCZ41)9="" 

790 REM COMPARE EACH WORD IN SENTENCE 
800 REM WITH WORDS IN DATA LIST FOR MATCH 
810 IT=1 

820 IF X§(I)>)=A$(Q) THEN 1010 

830 I=I+1:IF I)=30 AND Q)=3 THEN 890 
840 IF I>=47 THEN 860 

850 GOTO 820 

860 Q=Q+1 

870 IF Q>=Z+1 THEN 910 

680 GOTO 810 

890 PRINT@75, "SORTING WORDS" 

900 GOTO 840 

9710 REM WORD NOT IN FILE 


920 PRINT 

930 PRINT"I AM REALLY SORRY, BUT I 
AM UNABLE" 

940 PRINT'TO DISCUSS THIS PARTICULAR 
PROBLEM" 


950 PRINT"WITH YOU. PERHAPS YOU WOULD" 
960 PRINT"LIKE TO TRY ANOTHER", 

970 GOSUB ?80:GOTO ?90 

980 INPUT A$: PRINT: RETURN: REM STRING ENTRY 
990 IF AS="Y" OR AS="YES" THEN 1180 
1000 GOTO 4620 

1010 REM WORD LOCATED / START OUTPUT 
1020 WS=X8(I> 

i030 Mz! 

1040 IF M>=1 AND M<=4 THEN 1190 

1050 IF M>)=5 AND M¢=8 THEN 1190 

1060 IF M>)=9 AND M¢=16 THEN 2700 

1070 IF M>)=20 AND M{(=28 THEN 3300 

1080 IF M)=29? AND M¢(=31 THEN 2000 

1090 IF M)=32 AND M¢(=35 THEN 3600 

1100 IF M>=36 AND MC(=42 THEN 4030 

1110 IF M=43 OR M=45 THEN 2100 

1120 IF M=44 OR M=46 THEN 2100 

1180 RESTORE:GOTO 325 

1190 IF M=2 OR M=4 OR M=6 OR M=7 THEN 2100 
1200 PRINT" JUST HOW MANY ",WS,; 
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1205 
1210 
1220 
1228 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1300 
1505 
1510 
1315 
13520 
1530 
1540 
1550 
1560 
1570 
1580 
1390 
1600 
1610 
1620 
14630 
1640 


IF M=5 OR M=8 THEN $820 

GOSUB 980:A=VAL(AS):RS$=X5(43) 

AA=A: IF AA)dD=3 PRINT"GOOD GRIecF !!" 

IF A=1 THEN 1270 

PRINT"ARE ANY ONE OF THESE YOUR “;RS; 
GOSUB 980 

IF AS="YES" OR AS="Y" THEN V=1 

IF V=1 THEN 1390 

PRINT"SO YOU'RE JUST PLAYING THE FIELD 
PRINT"ARE YOU SEARCHING FOR A “";RS; 
GOSUB 980 

IF AS="YES" OR A&S="Y" THEN 1750 

PRINT" YOU PLAN ON STAYING SINGLE"; 
GOSUB 980 

IF AS="YES" OR A$="Y¥" THEN 1750 

PRINT" YOU'RE NOT GOING TO STAY SINGLE, 
PRINT"BUT AT THE SAME TIME YOU'RE" 
PRINT" LOOKING FOR A ";,RS;" YOU" 
PRINT"HAVE GOT TROUBLES !!" 

GOTO 4600 

PRINT"DO YOU FEEL YOU ARE CHEATING ON" 
PRINT" YOUR ";R$;" AND YOURSELF"; 

GOSUB ?80 

IF AS="YES" OR AS$="Y" THEN 1560 
PRINT"YOU DON'T "“;FS$; 

GOSUB 980:IF A$="YES" THEN 1560 
PRINT“ONE OF THOSE HARD-NOSED HUMANS, " 
PRINT"“HUH? I SUGGEST YOU NIP IT" 
PRINT" AT THE BUD, EXPLAIN THINGS TO" 


PRINT" YOUR ";R$;" AND FORGET THE OTHER" 


PRINT WS;" BEFORE YOU GET DEEPER THAN" 
PRINT" YOU ARE NOW...";,FS$ 

PRINT 

PRINT'DO YOU AGREE"; :GOSUB 980 

IF KL=1 THEN KL«0:GOTO 4700 

IF A$="NO" OR A$=s"N" THEN 1580 
PRINT" I THOUGHT YOU'D SEE THINGS" 
PRINT"MY WAY "; FS 

GOTO 4600 

PRINT" YOU SHOULD FORGET THE OTHER" 
GOTO 1490 

PRINT"“WHY DON'T YOU AGREE “;FS; 
GOSUB 980:GOSUB 5740 

PRINT" BECAUSE ";A$;,"?" 

PRINT"HOW LONG HAS THIS BEEN" 
PRINT"GOING ON ";FS§ 

PRINT"SELECT ONE: " 

PRINT"'I> DAYS" 
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1630 
1£¢90 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
17350 
17359 
1760 
1770 
1780 
1770 
1800 
1810 
1820 
1830 
1840 
1830 
1860 
1870 
1880 
1890 
1900 
1310 
1920 
1930 
1?40 
1730 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2090 
2060 
2070 
2080 
2090 
2100 
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PRINT"2> WEEKS" 

PRINT"3)> MONTHS" 

PRINT"4>) YEARS" 

GOSUB 980:A=VAL(A$) 

IF°A=1 THEN DAS$="DAYS":GOTO 1740 
IF A=2 THEN DA$="WEEKS":GOTO 1740 
IF A=3 THEN DA$="MONTHS":GOTO 1740 
IF A=4 THEN DAS="YEARS":GOTO 1740 
PRINT:GOTO 1610 

IF JK=1 THEN JK=0: RETURN 

IF KJ=1 THEN KJ=0:PRINT:GOTO 3640 
PRINT"DID THESE "“,WS;" FIND OUT" 


PRINT" ABOUT ONE ANOTHER ";FS5; 

GOSUB 980 

IF AS="YES" OR A$=s"Y" THEN 1800 

GOTO 1850 

PRINT'THAT'S THE TROUBLE! JUST STICK" 


PRINT"TO ONE ";X$¢(4);" FOR A WHILE." 
PRINT"THINGS WILL WORK OUT MUCH" 
PRINT" BETTER, YOU'LL SEE ",;,FS5;"." 
GOTO 4600 

PRINT"THEY DIDN'T? SO THE TROUBLE" 
PRINT"MUST BE WITH YOU. WHY IS IT" 
PRINT"NECESSARY FOR YOU TO SEE";,AA 
PRINT WS;" AT ONCE? HAVE YOU TRIED" 
PRINT" JUST ONE"; :GOSUB 9780 

IF AS="YVYES" OR AS="Y" THEN 1930 
PRINT" YOU HAVEN'T? TRY IT!" 

GOTO 1820 
PRINT" YOU HAVE 
PRINT"DIDN'T LIKE IT 
GOSUB 3780 

PRINT" I MIGHT SUGGEST YOU KEEP TO" 
Z=RND(6):1F Z=1 THEN 1970 


? I ASSUME THAT YOU" 
"JFS; 


PRINT" YOURSELF FOR AT LEAST";Z; "WEEKS. 


GOTO 1820 

PRINT" ARE YOU AWARE WHAT ";X$¢€30? 
PRINT"WILL DO TO YOUR HEALTH"; :GOSUB 
IF AS="N" OR AS="NO" THEN 2060 
PRINT" YOU ARE? THEN YOU SHOULD TAKE" 
PRINT"STEPS TO STOP. ..NOW ";,FS;"!19" 
GOTO 4600 

PRINT"THROAT CANCER, LUNG CANCER, A" 
PRINT''SHORTER LIFE EXPECTANCY. JUST" 
PRINT"TO NAME A FEW. TAKE A FEW" 
GOTO 2040 

IF M¢{C=4 OR M=44 OR M=43 THEN RS=X5(4) 
:JJ=1:GOTO 2120 
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2110 
2120 
2130 
2140 
2150 
2160 
2220 
2230 
2235 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 


2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
24350 
2960 
2470 
2480 
2490 
2300 
2310 
2520 
22330 
29395 
2340 
z2290 
2360 
2970 
2280 
2990 
2600 


R§=X$(6) 

PRINT"WHAT IS THE SINGLE MOST WORD" 
PRINT" THAT WOULD BEST DESCRIBE YOUR" 
PRINT" TROUBLES WITH THIS “";R$,; 

GOSUB 980 

ES=A$ 

PRINT"NOT ENOUGH "“;E$;" ";FS$; 

GOSUB 980 

IF AS<>"YES" AND A$¢)"RIGHT" THEN 2280 
PRINT"SO YOU ARE JUST NOT SATISFIED" 
PRINT"WITH THE WAY THINGS ARE GOING" 
PRINT"WITH YOUR ";E$; 

GOSUB 9780 

PRINT"OH I SEE ";FS;". HAVE YOU" 
PRINT"DISCUSSED THIS WITH "; 

IF JJ=1 PRINT'HER"; :GOTO 2320 
PRINT“HIM" ; 

GOSUB 980 

IF AS="N" OR AS="NO" THEN 2360 
PRINT" AND I ASSUME IT DIDN'T HELP." 
JK=1:GOSUB550:PRINT:GOSUB 1610:GOTO 
2430 

PRINT"“TRY IT; THINGS JUST MIGHT" 
PRINT"WORK OUT FOR THE BEST. IF" 
PRINT"NOT, CONSULT WITH ME AGAIN" 
PRINT“AND I WILL GIVE YOU A" 

PRINT" DIFFERENT ANSWER TO YOUR" 
PRINT" TROUBLES, ";FS;"." 

KL=1:GOTO 1505 

PRINT" DURING THE PAST ";,DA$S;" HOW" 
PRINT" MANY TIMES HAVE YOU DISCUSSED" 
PRINT'THIS WITH “; 

IF JJ=1 PRINT"HER"; :GOTO 2480 
PRINT'HIM" ; 

GOSUB 980 

A=VAL(AS) 

PRINT"DID ANY OF THOSE";A;"TIMES HELP" 
PRINT" AT ALL ",FS; 

GOSUB 980 

IF A$S="Y" OR AS="YES" THEN 2580 

IF A<=4 THEN 2580 

PRINT"I WILL HAVE TO TELL YOU TO" 
PRINT“SEEK SOME OUTSIDE HELP ON" 
PRINT" THIS MATTER...";F$:KLe=1 
X=RND(2)0:1F X=1 GOTO 494600 ELSE 1505 
PRINT"CONTINUE THEN TO DISCUSS THIS" 
PRINT PROBLEM OF "“;ES;" WITH “; 

IF JJ=1 PRINT"HER" : GOTO 2620 


83 


2610 PRINT"“HIM" 
2620 PRINT" IF YOU'VE PROGRESSED THIS" 
2630 PRINT"FAR, THINGS WILL SURELY GET" 
2640 PRINT" BETTER... .";FS 
2630 GOTO 4600 
2700 REM MONEY 
2710 PRINT"DO YOU HAVE A STEADY ",; 
2720 PRINT X§(36);" "“jFS$; 
2730 GOSUB 980 
2740 IF AS="N" OR AS="NO" THEN 2880 
2750 IF WS$¢>X$(13) THEN 2770 
2760 GOTO 2820 
2770 PRINT"BUT YOU ARE IN ";,X§(13);: 
GOSUB 980 
2780 IF A$="N" OR AS$S="NO" THEN 2990 
2790 PRINT"HAVE YOU CONSIDERED A “;,;X§(14); 
2800 GOSUB 980 
Z68i0 IF AS="Y¥" OR AS="YES" THEN 3020 
2820 PRINT" FINANCE CHARGES ARE HIGH, BUT" 
2830 PRINT"ONE PAYMENT WOULD PROBABLY BE" 
2840 PRINT"EASIER THAN SEVERAL TO DIFFERENT" 
2850 PRINT"ONES “;,FS;". YOU SHOULD" 
2660 PRINT"CONSIDER A ",X%$C(14);"." 
2870 GOTO 4600 
2880 PRINT"ARE YOU WORKING PART-TIME"; 
2890 GOSUB 980 
27900 IF A$S="N" OR AS="NO" THEN 3120 
2710 PRINT"O.K. “;FS;"YOU HAVE GOT A";X$(36) 
2920 PRINT" BUT, YOU ARE ONLY WORKING" 
27930 PRINT" PART-TIME. ARE YOU DEEPLY IN ",; 
2940 PRINT X$(13);:GOSUB 980 
2950 IF A$="Y" OR AS="YES" THEN 3090 
2760 PRINT"SO I WILL ASSUME THAT YOU JUST" 
2970 PRINT"NEED SOME EXTRA CASH..." 
2980 GOTO 2790 
2990 PRINT"YOU HAVE A STEADY ";X%§(36)3;" YOu" 
3000 PRINT"ARE NOT IN ";,X$C13);"..... " 
3010 GOTO 2960 
3020 PRINT"DID THE ";X$(41);" TURN YOU DOWN", 
3030 GOSUB 980 
3040 IF A$S="Y¥" OR AS="YES" THEN 3250 
3050 PRINT"YOU NEED ";X$(11);", YOU APPLIED" 
3060 PRINT"FOR A “;X$(14);", THEY DIDN'T" 
3070 PRINT"TURN YOU DOWN. WHAT'S THE BEEF"; 
3080 GOSUB 980: JJ=1:GOTO 3250 
3090 PRINT"'SO THAT'S IT !!" 
3100 PRINT"SEEK A HIGHER PAYING JOB ";,FS;"."™ 
3110 GOTO 4600 
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3120 PRINT"ARE YOU DISABLED ";FS;:GOSUB 980 
3130 IF A$="N" OR A$="NO" THEN 3200 

3140 PRINT'THAT EXPLAINS THE ";X§(11); 

3150 PRINT" TROUBLE." 

39160 PRINT'!I MIGHT SUGGEST YOU SEARCH FOR A" 
3170 PRINT"NICE FINANCE "“;,X$¢€41);" THAT WILL" 
9180 PRINT"UNDERSTAND YOUR PROBLEM. TODAYS" 
3190 GOTO 2820 

3200 PRINT"'I WILL HAVE TO ASSUME FROM ALL" 
3210 PRINT"“OF YOU ANSWERS THAT YOU ARE JUST" 
3220 PRINT"A LAZY PERSON "“;FS5;" LOOKING” 
3230 PRINT"FOR EASY CASH, GET A ";X$C396)0;,"!1!9" 
3240 GOTO 4600 

9250 PRINT"'WAIT A FEW MONTHS, IF POSSIBLE" 
3260 PRINT"AND REAPPLY FOR THE ";,X$(14) 

3265 IF JJ=1 THEN JJ=0:GOTO 3290 

3270 PRINT'THEY SHOULDN'T TURN YOU DOWN A" 
3280 PRINT"SECOND TIME ",FS;"." 

3290 GOTO 4600 

3300 IF M>=20 AND M¢=22 THEN 2790 

3305 IF M=25 OR M=26 THEN JX=1:GOTO 4270 
3310 PRINT"HAVE YOU DISCUSSED THIS WITH" 
3320 PRINT"THE ";X$¢€25);" OR THE ";X5¢26); 
3330 GOSUB 980 

3340 IF A$S="N" OR A$="NO" THEN 3520 

3350 PRINT"DID THIS SOLVE ANYTHING ";,F$; 
3360 GOSUB 980 

3370 IF A$S="N" OR A$="NO" THEN 3400 

3380 PRINT"IS THIS A DUPLEX"; :GOSUB 980 

3390 IF AS="N" OR AS$S="NO" THEN 3540 

39400 PRINT"HAVE YOU TALKED TO OTHER TENANTS" 
39410 PRINT"ABOUT YOUR SITUATION"; :GOSUB 980 
399420 IF A$="N" OR AS="NO" THEN 3560 

3430 PRINT"AND THIS, EVIDENTLY, DIDN'T HELP." 
399440 PRINT" IF YOU HAVE IN FACT TALKED TO" 
3450 PRINT"THE ";X$(26);" ABOUT THIS" 

3460 PRINT"AND NOTHING WAS SOLVED, I WOULD" 
3470 PRINT"SUGGEST MAKING UP A SCHEME TO" 
3480 PRINT"BREAK THE ";X$(27);" OR LEASE." 
3490 PRINT"SEEK A DIFFERENT LOCATION WITH" 
3500 PRINT"OTHER ";X$(24);" ";,FS;"." 

3510 GOTO 4600 

3520 PRINT"DO SO NOW, THEN ANSWER THE NEXT" 
3530 PRINT"SET OF QUESTIONS, ";F§:GOTO 3350 
3540 PRINT“YOU LIVE IN A SINGLE “;X5(23) 
3550 GOTO 3440 

3560 PRINT"DO SO NOW, THEY MIGHT BE GOING" 
3570 PRINT"THROUGH THE SAME THING. IF THIS" 
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3580 
ason 
3600 
9610 
9620 
3630 
3640 
3650 
3660 
$670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
9830 
39840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4015 
4020 
4030 
4040 
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PRINT" FAILS, 


GOTO 3479 


",FS;" I WOULD" 


PRINT"WHY DO YOU FEEL “;W6;" “;FS$; 
GOSUB 9780 
PRINT" I FELT THAT WAY ONCE, UNTIL I" 


PRINT" RECEIVED A NEW RAM." 


PRINT"DO YOU HAVE FRIENDS ";F$; 
GOSUB 980 
IF AS="N" OR A$="NO" THEN 3830 


PRINT"DISCUSSING DIFFERENT THINGS WITH" 
PRINT"THEM SHOULD MAKE YOU FEEL SOME-" 
PRINT"WHAT BETTER. HOW OFTEN HAVE YOU" 
PRINT" FELT THIS WAY ";F$:JK=1 

GOSUB 1630 

IF A=4 THEN 3800 
PRINT'SO IT HASN'T BEEN GOING ON TOO" 
PRINT"LONG “;FS;". WHAT IS THE ONE" 
PRINT" THING THAT WOULD CHEER YOU MOST" 
PRINT"AT THIS MOMENT"; :GOSUB 980 
PRINT"'THEN DO THIS NOW ";F$;". IF" 
PRINT"ALL FAILS YOU CAN RETURN TO ME." 
KL=1:GOTO 1505 

PRINT" THAT IS A LONG TIME TO BE IN THIS" 
PRINT"STATE OF MIND ";F8;". WHAT IS THE" 
GOTO 3750 

PRINT"DO YOU LIVE WHERE YOU COULD MEET" 
PRINT'SOME NEW FRIENDS ",F$;:GOSUB 980 
IF AS="N" OR AS$a"NO" THEN 3920 
PRINT"WHY DON'T YOU GET OUT AND MEET" 
PRINT" SOME NOW? IS SOMETHING ELSE" 
PRINT" HOLDING YOU BACK"; :GOSUB 980 
PRINT"OH, I SEE ";F&:GOTO 3920 

IF S$="MALE" THEN R$=X$(43):GOTO 1280 
R$eX$(45):JJ=1:GOTO 1280 

PRINT"HOW ABOUT MOVING TO A" 

PRINT" DIFFERENT LOCATION ";FS$;:GOSUB 980 
IF ASe="N" OR A$="NO" THEN 3980 

PRINT"'I BELIEVE THINGS WILL WORK OUT" 
PRINT"FOR THE BEST WITH THIS MOVE." 
GOTO 4600 

PRINT" ARE YOU TRYING TO BE CONTRARY 
GOSUB 9780 

PRINT"LET'S TRY A DIFFERENT APPROACH TO" 
PRINT"THIS SUBJECT ";F$:GOSUB 550 

IF M243 OR M=453 THEN PRINT:GOTO 3640 
KJ=1:GOTO 3900 

IF M=37 OR M=38 THEN 4270 
PRINT'WHAT'S THE TROUBLE WITH YOUR 


"FS; 


"UWS; 


4050 GOSUB 980:GOTO 4540 

4060 IF W&=X$(36) THEN 4080 

4070 IF M=4i1 OR M=42 THEN 4120 

4080 PRINT"HAVE YOU ASKED FOR A RAISE IN PAY"; 
4090 GOSUB 980 

94100 ITF A$=m"N" OR A$="NO" THEN 4520 

4110 PRINT"I ASSUME YOU WERE TURNED DOWN." 
4120 PRINT’DO YOU BELONG TO A UNION ";F$; 
4130 GOSUB 980 

4140 IF A$="N" OR A$="NO" THEN 4340 

4150 PRINT"DO OTHERS FEEL THE WAY YOU DO"; 
94160 GOSUB 980 

4170 IF A$="N"“ OR A$="NO" THEN 4440 

4180 PRINT"HAVE ALL OF YOU MET TO DISCUSS" 
4190 PRINT“A POSSIBLE STRIKE ";FS§; 

4200 GOSUB 980 

4210 IF A$="N" OR AS="NO" THEN 4440 

4220 PRINT"“AGAIN, I ASSUME THINGS DIDN'T" 


4230 PRINT"TURN OUT WELL ";F$;". I WOULD" 
4290 PRINT"SUGGEST THAT YOU TRY AND LOCATE" 
4250 PRINT“ANOTHER ";X$(36)0;" “j;FS;"." 


4260 GOTO 4600 
4270 PRINT"WHAT EXACTLY IS THE PROBLEM" 


4280 PRINT'WITH YOUR ";WS;" "“;F$;:GOSUB 980 
4290 PRINT"HAVE YOU BROUGHT THIS TO HIS OR" 
4300 PRINT"HER ATTENTION, “;F$;:GOSUB 9860 


4310 IF A$="N" OR A$="NO" THEN 4455 

4320 PRINT"YOU HAVE AND YOU FEEL YOU AREN'T" 
4330 PRINT"BEING TREATED FAIRLY"; :GOSUB 980 
4335 IF JX=1 THEN 3400 

4340 PRINT"HOW LONG HAVE YOU BEEN EMPLOYED" 
4350 PRINT"WITH THIS ";X$(41);" “;FS$; 

4360 JK=1:GOSUB 1630 

4370 IF A=4 THEN 4390 

4380 GOTO 3100 

4390 PRINT" YOU'VE BEEN WITH THIS ";X$(41) 
4400 PRINT"FOR QUITE AWHILE. IF POSSIBLE" 
4910 PRINT"YOU SHOULD STICK WITH IT FOR AS" 
4420 PRINT"“LONG AS YOU CAN ";FS5 

4430 GOTO 4600 

4940 PRINT"YOU ARE ALONE ON THIS MATTER. " 
4450 GOTO 3100 

4455 IF JX=1 THEN 3400 

4460 PRINT"SIT DOWN WITH YOUR ";X$(37);" 
4970 PRINT"DISCUSS THIS MATTER FULLY WITH" 
49480 PRINT“HIM OR HER.IF THEY DO NOT UNDER-" 
4990 PRINT"STAND YOUR PROBLEM “";F8;" I" 
4500 PRINT"WOULD SEEK ANOTHER JOB." 
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4310 
43294 
4330 
4540 
4350 
4560 
4370 
4380 
4390 
4399 
4600 
4610 
4620 
4630 
4640 
4700 
4710 
4720 
4730 
4740 
4730 
4760 
4770 
47680 
4790 
4800 
4810 
4820 
4830 
4840 
48350 
94860 
4870 
9200 
2210 
7220 
9230 
3240 
9290 
9260 
2270 
9280 
3290 
3300 
2310 
2740 
97350 
2770 
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PRINT:GOTO 4120 


PRINT"TRY IT, “JRE, Uli; coToO 4124 
PRINT"I ";:GOTO 4240 

FOR U=1 TO LENCAS) 

IF MID$(A$,U,4)=X$(37) THEN 4580 

IF MID$¢(A$,U,6)=X$(38) THEN 4590 
NEXT:GOTO 4060 

WS=MIDS(AS,U,49) :GOTO 4595 
WS=MIDS(AS,U, 6) 

GOTO 4270 

GOSUB 350:PRINT 

GOTO 960 

PRINT 

PRINT" END OF PROGRAM..." 

END 

IF A$S="N" OR A$S="NO" THEN 3980 
PRINT"YOU DOC AGREE,I FIGURED YOU WOULD" 
PRINT FS§;". DO YOU ALWAYS TEND TO 
PRINT" AGREE WITH COMPUTERS" ; 

GOSUB 980 

IF A$="N" OR A$="NO" THEN 3980 
PRINT'SO THEN YOU AGREE WITH COMPUTERS" 
PRINT" ALMOST CONSTANTLY ";F5;"." 
PRINT"WOULD YOU AGREE IF I SAID THAT" 
PRINT" IF YOU PRESS ANOTHER" 


PRINT"KEY, I COULD KIEL THIS WHOLE" 
PRINT" PROGRAM, ";F$;:GOSUB ?80 

IF A$="N" OR A$="NO" THEN CLS:GOTO 4850 
PRINT"GOOD THING YOU SAID ";,;A5;,"..." 
GOTO 4600 

FOR TT=1 TO 10000:NEXT 

PRINT"WE'RE YOU SCARED..... ",FS;,"?" 


GOTO 4600 

REM WORDS / DATA BANK 

DATA GIRLS,GIRL,WOMEN, WOMAN, MEN, MAN 
DATA BOY,BOYS,BILLS,BILL,MONEY 

DATA FINANCIAL,DEBT,LOAN, TAX, TAXES 
DATA CAR,CARS, AUTO, HOUSE,HOUSES 
DATA HOME ,APARTMENT, APARTMENTS 

DATA LANDLORD, OWNER, CONTRACT, RENT 
DATA CIGARETTES, SMOKING, CIGARETTE 
DATA LONELY, ALONE, DEPRESSED, AFFRAID 
DATA JOB,BOSS, FOREMAN, SALARY, INCOME 
DATA COMPANY, INDUSTRY,WIFE 

DATA GIRLFRIEND, HUSBAND, BOYFRIEND 
REM SHORTEN STRING 

US=A$ :A$="" 

FOR I=1 TO LEN(CUS) 


2780 IF MID$S(US,I1,2)="I " THEN 5800 
9790 AS=AS$+MIDS(U$S,I,1):NEXT: RETURN 
5800 A$=A$+"YOU" : ITal+1 

$810 GOTO 5780 

3820 GOSUB 980:A=VAL(A$) 

$830 REM REDO STRING CONTENTS 

9840 R$2zX$(45) 

9850 GOTO 1220 


Variables and Strings 


N$ - First/last name of user 

S$ - To differ between male and female 

A$ - Used throughout the program for string entrys (input) 

P$ - Entry of troubles 

W - Word count, number of words in sentence (P$) 

Y - Beginning of program, for use of periods in sentence 

F$ - First name of user 

TI - Time loop (pause) during program run 

X$(N) - Data list of Words that computer can react to from the data 
Statements. 

I - Used as a counter 

Q - Used in conjunction with A$(N) for the separation of words in a 
sentence 

L - Number of letters in each word (LEN amount) 

A(N) - Total number of letters per word 

Z - Total count of words 

W$§ - Singled-out word from the beginning sentence that matches a 
word from the data list 

M - Location of a particular word from the data list 

A - VALue of A$ 

R$ - Singled-out word from the data list 

KL - 0/1 variable for messages, comparison 

DA$ - Length of troubles, i.e., days, weeks, months, or years 

JK, KJ - 0/1 variable (true/false comparison) 

Z- A random amount for print statements 

JJ - Also for print statements 

E$ - Contents of A$ (selected areas) 

X - For random print statements 

JX - 0/1 variable 

U - Used in the for-next loop (A$) that examines the singled-out 
word 

TT - Secondary time loop (pause) for end 
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U$ - Contents compared, for changing “I” to “YOU” for print 
messages 


Explanation of the Program Lines 


Lines 10-145 clear memory for string storage and display brief 
instructions. 

Lines 150-160 request the input of the user’s first and last 
name. 

Lines 170-210 begin the actual program if A$ equals “Y” 

Line 320 contains the dimension statements. 

Lines 325-465 are used for the input of P$ (troubles sentence), 
the determination of the number of words in that sentence, and the 
display of messages if there are too many words (line 440) or too few 
(line 445). 

Lines 490-540 separate N$ to set F$ equal to the first name of 
the user. 

Lines 550-570 is the time loop (pause). 

Lines 580-590 read the data list and place the words in the X$ 
array. 

Lines 600-780 separate each word in the sentence entered by 
the user so that the individual words can be compared with the 
words in the data list. 

Lines 790-970 compares each word in the sentence with those 
in the data list, X$(N). If no match is located, the program will 
branch to the print statements in lines 930-960. 

Line 980 is a routine for the entry of A$ used by GOSUB 
statements throughout the program. 

Line 990 enables the user to enter another trouble sentence. 

Line 1000 terminates the program if A$ is equal to “NO.” 

Lines 1010-1120 direct the program flow to the appropriate 
line depending on which word in the data list matches a word in the 
sentence entered by the user. 

Line 1190 causes a branch to a different set of print statements 
if any of the conditions are met. 

Line 1200 is the beginning of all the print statements, ques- 
tions, and possible solutions. 

Lines 1205-4530 are all the print statements, inputs, and solu- 
tions, depending on the word(s) selected (as they are matched with 
computer’s data list) 

Lines 4540-4595 alter words such as him, her, husband, and 
wife according to the contents of W$ 
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Lines 4600-4640 terminate the program if A$ is not equal to 
“Y” or “YES”. 

Lines 4700-4870 are extra print statements for use when the 
user becomes contrary or tries to confuse computer. 

Lines 5200-5310 contain the data elements, which are the 
words that are compared to the individual words in the user’s 
trouble sentence. 

Lines 5740-5810 redo parts of sentence for the output of YOU 
as opposed to I. 

Lines 5830-5850 changes the contents of R$ to match print 
output. 
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SASS 
NaN 
LILI & muy [Ni 


CECRLE 
OzALS 
VVY 


Oo fe) O 


GENERAL STORE 


So you think this is just a simple program to test your addition ? 
Guess again! Sure, you'll have to be good at arithmetic and you'll 
have to add quickly! The computer will give you products (two at 
the first) and their prices. Then you'll have to enter the totals of the 
prices. All of this will happen in limited amount of time so, if you 
can’t think fast...don’t try this program! Note that the IBM version 
of this program is included in Appendix A, and the Apple version in 
Appendix B. 


Sample Run 


GENERAL STORE 

YOUR INSTRUCTIONS ARE SIMPLE AND 
STRAIGHT-FORWARD: | WILL GIVE 

YOU A LIST OF DIFFERENT ITEMS 

AND THEIR PRICES. YOU IN TURN 

WILL ENTER THE TOTAL OF THE 

ITEMS. THAT IS, IF | SAY $2.50 

MILK , THEN | SAY $0.80 BREAD, 

YOU MUST THEN ENTER THE TOTAL 
OF $2.50 + $0.80 ($3.30). ALL 

YOUR ENTRIES WILL BE THROUGH 
INKEY$, DON'T PRESS ENTER AND DON’T ENTER THE 
DOLLAR SIGN. 

PRESS A KEY... 

ENTER ONLY THE NUMBERS AND THE 
DECIMALS. AFTER 10 ITEMS WE WILL 
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START 


DIM 
STATEMENTS 
INSTRUCTIONS 


P NUMBER 
QF PLAYERS 
<> 1 


Y 


QA 
P> 10 
N 
INPUT 0D 
FIRST NAMES 


SELECT ARNO 
PLAYER 


MESSAGE PAINT PLAYER 
TOTAL POINTS READ DATA 


ENTRY BY TY{NE) = 
INKEYS VAL(XS) 


TIME | 
EXPIRED 


Flowchart for General Store. 


TAKE A SHORT BREAK: THEN | WILL 
GIVE YOU 10 MORE. WE WILL QUIT 
ONLY AFTER 30 ITEMS HAVE BEEN 
COMPLETED. YOUR SCORE WILL BE 
DETERMINED BY YOUR TOTAL. IF 
CORRECT, THE TOTAL IS YOUR SCORE. 
IF INCORRECT, YOUR TOTAL WILL BE 
A MINUS OF ALL ENTRIES MISSED. 

| SHOULD ALSO TELL YOU, THAT 

YOU WILL HAVE A TIME LIMIT IN 
WHICH TO ENTER THE TOTAL, SO LAY 
DOWN THE PENCIL AND CALCULATOR. 


SORT POINTS 
HIGH/LOW 


MESSAGE - 
TOTALS 
STOP 
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PRESS ANOTHER KEY... 
HOW MANY PLAYERS? 2 


ENTER 2 PLAYERS FIRST NAMES 
MAX 

MAY 

| WILL SELECT EACH PLAYER IN 
A RANDOM FASHION, THERE WILL 
BE NO SET ORDER OF PLAYERS. 


MAX YOU WILL NOW PLAY. 
PRESS THE ENTER KEV... 


Program Listing 


10 REM PROGRAM TITLE: GENERAL STORE 

20 CLS:CLEAR $00: PRINT TAB(10),; 

30 PRINT"GENERAL STORE": RS="NEXT" 

940 RANDOM:DIM N§(15),16¢31),1¢31) 

90 DIM L(31),PR(31)>,TP(15):REM INSTRUCTIONS 

60 PRINT"YOUR INSTRUCTIONS ARE SIMPLE AND" 

70 PRINT"STRAIGHT-FORWARD: I WILL GIVE" 

80 PRINT" YOU A LIST OF DIFFERENT ITEMS" 

90 PRINT"“AND THEIR PRICES. YOU IN TURN" 
100 PRINT"WILL ENTER THE TOTAL COST OF THE" 
110 PRINT" ITEMS. THAT IS, IF I SAY $2.50" 
1Z0 PRINT"MILK, THEN I SAY $0.80 BREAD" 

130 PRINT" YOU MUST THEN ENTER THE TOTAL" 
140 PRINT"OF $2.50 + $0.80 ($3.30). ALL" 
150 PRINT" YOUR ENTRIES WILL BE THROUGH" 

160 PRINT" INKEY§. DON'T PRESS ENTER AND" 
170 PRINT"DON'T ENTER THE DOLLAR SIGN" 

180 PRINT: PRINT"PRESS A KEY..." 

190 GOSUB 3000:CLS:G$="##, ###" 

200 PRINT" ENTER ONLY THE NUMBERS AND THE" 
210 PRINT"DECIMALS. AFTER 10 ITEMS WE WILL" 
220 PRINT"TAKE A SHORT BREAK. THEN I WILL" 
230 PRINT"GIVE YOU 10 MORE. WE WILL QUIT" 
2940 PRINT"ONLY AFTER 30 ITEMS HAVE BEEN" 
Z90 PRINT" COMPLETED. YOUR SCORE WILL BE" 
260 PRINT"DETERMINED BY YOUR TOTAL, IF" 

270 PRINT" CORRECT THE TOTAL IS YOUR SCORE." 
280 PRINT" IF INCORRECT, YOUR TOTAL WILL BE" 
290 PRINT"A MINUS OF ALL ENTRIES MISSED." 
300 PRINT"I SHOULD ALSO TELL YOU’ THAT" 

310 PRINT" YOU WILL HAVE A TIME LIMIT IN" 
320 PRINT'WHICH TO ENTER THE TOTAL, SO LAY" 
330 PRINT"DOWN THE PENCIL AND CALCULATOR. " 
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340 REM BEGIN 

390 PRINT" PRESS ANOTHER KEY..." 

360 GOSUB 3000:CLS 

370 INPUT" HOW MANY PLAYERS (1-10)";P 

380 IF P<1 OR P10 THEN 370 

390 PRINT" ENTER"; P; "PLAYER'S FIRST NAMES“ 
400 REM NAMES 

410 AP=15538:FOR I=1 TO P 

420 INPUT NS$C(I): NCI) =I :NEXT:N=1:AA=176 
425 AGQ=AP+64:I1F P=i1 THEN Y=1:N=2:GOTO 470 
430 PRINT"I WILL SELECT EACH PLAYER IN" 
440 PRINT"A RANDOM FASHION. THERE WILL" 
4530 PRINT" BE NO SET ORDER OF PLAYERS." 
460 GOSUB 2800:PRINT:REM PLAYER 

470 IF EE=1 THEN 1530:REM FINAL 

480 QS=N$ (CY): TA=0:JI=0 

470 PRINT Q$;" YOU WILL NOW PLAY." 

300 PRINT" PRESS THE ENTER KEY...",; 

910 INPUT X$: PRINT 

920 PRINT"HOW FAST IS YOUR ADDITION ", 
930 PRINT Q$;" 2272" 

240 REM READ ALL ITEMS / PRICES 

950 FOR IT=1 TO 30:READ I$(I1I):L¢I)=s1 :NEXT 
560 FOR I=1 TO 30:READ PR(I):NEXT:GOTO 2500 
$70 D=I-1:DDe(D/3) :Us1l1:DS="SH8. ##" FSH" S" 
5980 REM SELECT ITEMS RANDOMLY 

590 IF U>)DD THEN PRINT: PRINT:GOTO 1100 
600 X=RND(30) 

610 [IF L¢X)=0 THEN 600:REM USED 

620 T=X:PR=PR(T) :TS$=I1$(T) 

6295 IF U=1 THEN YU=PR 

630 TA=TA+PR:REM TOTAL AMOUNT/CURRENT ITEM 
690 TAS=STR&(TA):REM TOTAL TO STRING 

643 IF V=l THEN GOSUB 2900 

690 IF VUs=i THEN CLS ELSE IF VU)1 THEN 670 
660 PRINT TABCO)"PRICE" TAB(25) "ITEMS"; 
663 PRINT TAB(5S0)"TOTALS" 

670 PRINT TAB(O) USING D$;PR; 

680 PRINT TAB(25) TS 

690 IF U<=1 THEN 710 

700 RR=1:REM CONTINUE PRINT / ENTRIES 

710 L¢(X)=s0:U=U+1:KK=0:NE=1 

720 IF RR¢>1 THEN 580 

7235 PRINT@AA, F$ 

730 XS=INKEY$:IF KK¢=5 AND X$(>"" THEN 1040 
735 IF X$="." THEN 880 

740 IF X$=""" THEN 760 

730 GOTO 800 
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760 KK=KK+1:REM TIME EXPIRED ? 
770 IF KK>=175 THEN WS="":GOTO 1000 
760 POKE AP,i43:GOTO 730 

800 REM ENTRY 

810 POKE AP,ASC(X$):TY(NE) =VAL(X$) 
820 AP=AP+1:REM POKE LOCATION 

830 NE=NE+1:REM NUMBER ENTRY 

840 IF NE=LEN(TAS) THEN 860 

850 GOTO 730 

860 GOTO 910:REM ALL ENTRIES IN 

880 REM DECIMAL 

890 POKE AP,ASC(X$) 

900 TY(NE)=1000:GOTO 9820 

910 REM COMPILE ENTRIES 

920 V=NE-1:IF V=9 THEN V=10 

930 FOR I=1 TO V 

940 IF TY(I)=1000 THEN 970 

950 WS=WS+STRS(TYC(I)?) 

960 TY(I)=0:NEXT:GOTO 990 

970 WS=WS$4+". " 

980 GOTO 960 

990 W=VAL(WS$) :WS=STR5 (W) 

1000 IF WS¢>TA$ THEN PI=PI+PR: JI=JI+1 
1005 IF U=3 AND JI<¢)0 THEN PI=PI4YU: JI=JI+1 
1008 IF PEEK(AP)=143 THEN POKE AP, 32 
1010 POKE AP+1,32:WS="":AA=AA+64 
1020 AP=AQ: AQ=AQ+64 

1030 GOTO 590:REM ANOTHER ITEM 

1040 REM SLOW DOWN A LITTLE 

1050 POKE AP, 32 

1060 GOTO 730 

1100 REM POINTS / PLAYER ADVANCE 
1110 IF PI<¢)0 THEN 1200 

1120 FOR I=1 TO LEN(TAS) 


1130 IF MIDS(TAS,I,1)="." THEN 11590 
1140 K$=K$+MIDS(TAS,1,1) 
11530 NEXT 


1160 K=VAL(K$) 

1170 GOSUB 1430 

1180 TPCY)=TPC(Y)+K 

1190 GOTO 1320 

1200 REM MISSED ITEM(S) 

1210 TA$S=STRS(PI):FOR I=1 TO LEN(TAS) 
1220 IF MID$(TA$,1,1)="." THEN 1240 

1230 KS=KS+MID$(TAS,I,1) 

1290 NEXT: K=VAL(K$):GOSUB 14930 

12530 TPCY)=TP(Y)-K 

1260 PRINT"YOU HAVE MISSED TOTALS ON" ,JI 
1270 PRINT"ITEMS ";,;Q@$;". THESE ITEMS CAME" 
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1280 PRINT"'TO A TOTAL OF §";TAS;". YOU ARE" 
1290 PRINT"MINUS THAT NUMBER, YOUR SCORE" 
1300 PRINT"IS NOW: “;USING G$;TPCY) 

1310 GOTO 1350 

1320 PRINT"YOU HAVE SUCCESSFULLY ENTERED" 
1330 PRINT"ALL TOTALS ";Q$;", YOUR SCORE 
1340 PRINT"IS NOW: "“;USING GS$;TPC(Y) 

13530 K=0:JI=0:PI=0:TA$="":K$="" 

1360 U=1:D1=D1+10:IF Di=20 THEN RS$="LAST" 
1370 AP=15538:AQGQ=AP+64:AA=176:RR=0: PRINT 
1380 IF Di>=30 THEN 1500 

1390 PRINT"TAKE A SHORT BREAK, THEN WE'LL" 
1400 PRINT"ATTEMPT THE “";R$;" SET OF ITEMS. " 
1410 FOR T=1 TO $000:NEXT: PRINT 

1420 GOTO 580 

1430 REM AMOUNT TIMES 10 

1440 IF MIDS¢(TAS,LEN(TAS$)-1,1)="." THEN 1480 
1430 IF LEN(TA$)=2 OR LEN(TA$)=3 THEN 1470 
1460 RETURN 

1470 K=K*100:GOTO 1460 

1480 K=K*10 

1490 GOTO 1460 

1500 REM ANOTHER PLAYER 

1310 PRINT: PRINT: RESTORE 

1520 Diz0:RS$="NEXT":GOTO 460 

1330 REM HIGH POINT 

15335 IF P=1 THEN TP=TP(1i1):GOTO 1720 

154940 MM=0:VV=1:N=N-1 

1550 IF TPC(VV)>)=TPC(VV+1) THEN 1590 

1560 TP=TP(VV) :TP(VV) =TPC(VV+41) 

1570 TP(VV+1)=sTP:NS5=NS5 (VV) 

15380 N$ (VV) =N$ (VV41):N$ (VV+1)=N$ :-MM=1 

1590 IF VV+1i>=N THEN 1600:REM FINAL 

1595 VV=VV+1:GOTO 1590 

1600 REM MM=1i -- NOT IN ORDER 

1610 IF MM=1 THEN 1540 

1650 REM POINTS COMPILED (FINAL) 

1700 REM PRINT RESULTS 

1710 PRINT"ALL HAVE PLAYED.. ." 

1720 PRINT"PRESS A KEY FOR RESULTS ON SCORE" 
1730 GOSUB 3000 

1740 CLS: IT=1 

1730 REM SINGLE PLAYER 

1760 IF P=! THEN 1850 

1770 PRINT"THE TOP WINNER: “;NS(C(T) 

1780 PRINT"'WITH A FINAL POINT SCORE OF: ", 
1790 PRINT USING GS$;TP(¢I>? 

1800 PRINT'OTHER PLAYERS AND SCORES:" 

1810 FOR X=I+1 TO P 


97 


1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
2300 
2310 
2920 
2330 
2340 
2990 
2960 
2270 
2980 
29390 
2600 
2610 
2620 
2800 
2810 
2820 
2830 
2840 
2850 
2900 
2910 
2920 
2930 
2940 
2930 
2960 
2970 
2980 
3000 
3010 
3020 
3030 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
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PRINT N§(X);," HAD: "; USING G$;,TPC(X) 
NEAT 

GOTO 1880 

PRINT @$;" YOUR TOTAL (FINAL) 
PRINT"FOR GENERAL STORE [S: "; 


PRINT USING G$;TP 


PRINT 

PRINT" END OF PROGRAM RUN." 
END 

REM INFLATION / DEFLATION 


FOR [Y=1 TO 30 
DE=RND(10):DF=CSNG(DE/10> 
DG=RND( 2) 

IF DG=2 THEN 2590 

REM INFLATION 

PRC I)=PR(1)+DF 

NEXT 

GOTO 3570 

REM DEFLATION 

PRC I)=PR(1I)-DF 

IF PR(I)¢<¢=0 THEN 2560 

GOTO 2570 

REM RANDOM PLAYER 

IF NOP THEN EE=1: RETURN 
Q=RND(P) 

IF N(Q)=0 THEN 2820 

Y=Q:N(Q)=0 

N=N+1: RETURN 

REM EXTRA MESSAGE 

PRINT 

PRINT"ADD ALL ITEMS TOGETHER" 
PRINT" BEFORE INPUTTING AMOUNT. " 
IF Di>=10 THEN 2970 . 
FOR TL=1 TO 2800:NEXT 

CLS: RETURN 

PRINT'START WITH PREVIOUS TOTAL." 
GOTO 2950 
REM INKEYS$ 
XS$=INKEY S$ 
IF xX$="" 
RETURN 
REM DATA / PRICE - ITEM COMBINED 
DATA MILK, BREAD,MEAT 

DATA MEAT,MEAT, FISH 

DATA CANDY, CANDY, CANDY 

DATA VEGETABLES, VEGETABLES 

DATA POULTRY, POULTRY 

DATA LETTUCE, ONIONS 


THEN 3010 


SCORE" 


4070 
4080 
4090 
4100 
4110 
4120 
94130 
4140 
4150 
4160 
4170 
4180 
41970 
4200 
4210 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


REM PRICES OF 


DATA 
DATA 
DATA 
DATA 
DATA 


SPINACH, CIGARETTES 
CIGARS, BACON 

TABLETS (PAPER), PENS 
BATTERIES, BATTERIES 
FURNITURE POLISH 
CARPET CLEANER 

HAND SOAP,HAND SOAP 
CRACKERS ,MEATS 

SODAS (CASE) 

ITEMS 
2.30,0.89,1.98,3.35,9. 
.395,2.05,0.54,0.39,0. 
.99,0.59,1.01,0.79,7. 
-66,1.23,2.494,2.66,9. 
-941,0.99,0.99,1.32,8. 
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Variables and Strings 


G§$ - Used for the printing of scores 
P - Number of players (1-10) 

AP - Poke location for printing 
N$(N) - First names of players 

N - Number of players, counter 

AA - Print @ locations 

AQ - Same as AP, but for advancing to a new area 
Q$ - Selected player 
TA - Total amount, up to and including current item 
JI - Counter for incorrect price entry 
IS(N) - All items 

PR(N) - Price of above items 

D - Amount of I after data is read 

DD - Total items 

U - Counter for items 

D$ - For print of prices 

X - Random selection of an item 

L(X) - Delete the item X, after selection 
T - Same as variable X (random) 

PR - Set to the price of the current item, PR(T) 
T$ - Same as the I$(T) item, used in conjunction with Jl 
YU - Price of the first item in each set 
TA$ - STR$ of amount TA 

KK - Used for timing responses 

NE - Used for TY (subscripted) for each numeral entry 
TY(N) - Explained in the line above 

W§$ - STR$ content of the TY(D cost entry 


90,3 


. 69 
43,3. 
05,0. 
98,1. 
99,4. 


44 
74 
97 
32 
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PI - For incorrect price entry 
K& - Total enct af 19 items 


K - VALue of K$, above 

TP(Y) - Total score for current player 

VV - Used for sorting high to low score list (if more than one has 
played) 

MM - 0/1, true/false variable. If MM= 1, the list of players ar- 
ranged according to their scores is not correct in order. Likewise if 
MM = 0 the list is correct 

DE - Selects a random amount from 1-10 for inflation or deflation of 
current prices 

DF - Insures that the amount above will be a “cent” increase of 
decrease 

DG - Determines whether the current price in the list will be 
inflated or deflated 

Q - Randomly selected player 


Explanation of the Program Lines 


Lines 40-50 dimension the strings and variables. 

Lines 60-350 display the instructions for play. 

Line 360 contains a GOSUB to line 3000, which contains an 
INKEY$ routine that line 360 uses to exit the instructions. This 
routine is used throughout the program 

Lines 370-420 let the user enter the number of players and 
their first names. 

Lines 410,420, and 425 also initialize some variables for print@ 
(AP) and poke (AP and AQ) locations. 

Lines 430-460 print a message, and then select one player 
randomly using a GOSUB to lines 2800-2850. If only one person is 
playing, P=1, and line 425 causes the random selection of a player to 
be skipped. 

Line 470 if EE=1, all players have had their turn. The program 
will branch to the final messages beginning at line 1530. 

Line 480 sets the contents of Q$ to the name of the player 
selected, N$(Y). The variables TA and JI are set or reset to 0 for 
totaling and scoring purposes. 

Lines 490-530 are print messages for the current player. 

Lines 540-560 read all data items and prices. The subscripted 
variable L(I) is used to delete a particular item after it has been 
used. After all items I$(1) and prices PR(I) are read, the program 
will branch to lines 2500-2620. These lines are used for inflation or 
deflation of the 30 prices. This will insure that the user cannot 
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memorize any price because each will change with each player or 
each program run. Line 2520 randomly selects a number from 1-10 
(DE). This number is then divided by 10 and set to a cent amount, 
DF = C(SNG(DE/10). The CSNG simply insures, that DF is a 
single-precision number. Line 2530, where DG = RND(2), will de- 
termine whether this amount is to be used to increase or decrease 
the current price. If DG is equal to 2, the current amount will be 
decreased by DF (lines 2590-2620). If the amount of PR(D is less 
than or equal to 0 (zero), the program will branch back and use DF to 
increase PR(I) in line 2560. The current price will always be a 
positive amount, even if it’s only one penny. 

Line 570 sets more variables and strings: DD for the total 
number of items (D) divided by 3; (the program presents 3 sets of 10 
items) U, acounter for the items; and D§ and F$ for print statements 
of prices. _ | 

Lines 580-610 select one item at random if U is not greater than 
DD (line 590) and the item has not been omitted (line 610). 

Lines 620-640 select an item and the total price of the item 
selected. ~~ 

Lines 645-650 are used primarily for print statements if U is 
equal to one (line 660 and 665). 

Line 670-680 print the price and the item selected. 

Lines 690-700 insure that two items are selected if U<=1, so 
that the user will have a total to enter. 

Line 710 deletes the selected item, increases the item counter, 
U, sets the timer counter, KK, and sets variable NE to 1 for the 
contents of key entriés. 

Line 720 branches back to line 580 if RR is not equal to 1, as 
explained in lines 690 and 700 above. 

Line 725 prints the dollar sign at AA, so the user will know the 
timing has begun. 

Lines 730-770 compose the INKEY$ routine for user entries. 
The variable KK is increased by 1 if no key closure is detected. The 
argument at line 730, if KK<=5and X$< >“”, will insure that the 
beginning of a new entry is cleared (lines 1040-1060) in case a key is 
closed when KK>=175. This way, the amount will not be carried 
over to the next item. If the decimal key is pressed (line 735), the 
program will branch to line 880; that ASCII value will be poked onto 
the video, and that part of the price entered will be equal to 1000, 
TY(NE). Ifa numeral key is pressed, the program will branch to line 
800. That numeral will be poked at AP and TY(NE) will be equal to 
the value amount of X$. With this function and the above the poke 
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location is increased by 1 and the variable NE is also increased by 1. 
Line 840 tests the value of NE. If it is equal to LEN(TA$), the 
required number of keys have been pressed, and the program 
branches to line 910. 

Line 780 pokes CHR$(143), a graphic block, at the current 
location of the price entry. If no numeral or decimal is pressed, lines 
910-980 will compile all the keys closed, and place them in a string 
(W$) along with the decimal (line 940), if TY) =1000. 

Line 990 sets W to the VALue of W$. W$ is then changed to the 
STR$ amount of W. 

Line 1000 increases the variable PI to PR (the price of the 
item) if W$ is not equal to TA$. JI will then be increased by 1. 

Line 1005 is used to include the price of the first item in the 
current set (YU), if the total entered to that point is incorrect and 
U= 3 and JI< > 0. 

Line 1008 clears the cursor block (143) from the current line 
before advancing to the next item. 

Line 1010 clears the contents of W$ (for another item) , ad- 
vances the print @area by 64 (AP=AQ), and increases AQ by 64 for 
the next poke location. 

Lines 1020-1030 start the process all over by going back to line 
590 to select another item. If the condition is met at line 590 (10 
items have been completed), the program will branch to line 1100. 

Line 1110 checks the amount of PI. If it is not equal to 0 (zero), 
the program will branch to the incorrect entries routine. 

Lines 1120-1190 are used for correct entries. TA$1s torn apart 
and placed in another string, K$. If the decimal is encountered (line 
1130) the program will branch to the next statement in line 1150. In 
line 1160 K will assssume the amount of K$, through the VAL func- 
tion. 

Line 1170 contains a GOSUB to line 1400, which will again 
check the contents of TA$ (lines 1440 and 1450). If either condition 
is met, the variable K will be multiplied by the appropriate amount, 
for the addition of trailing zeros. 

Line 1180 increases the total points, TP(Y), by the value for 
each player. 

Line 1190 then branches to line 1320 as explained below. 

Lines 1200-1250 are used for missed items. They function in 
the same manner as lines 1120-1190, but the value of each item 
missed is subtracted from the player’s total. The amount returned 
will be a negative number. 

Lines 1260-1300 are the print messages displayed when items 
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have been missed. The number of incorrect items (JJ), the total 
price, and the player’s current score are displayed. 

Lines 1320-1340 are the print messages displayed when no 
items have been missed. The player’s score is displayed. Note that 
all items must have been entered correctly or the player will 
receive a negative score, even if only one was missed. 

Lines 1350-1420 begin the cycle again for the next 10 items, if 
the condition is not met at line 1380. Variables are cleared and 
strings are set to null. 

Lines 1430-1490 are explained above. 

Lines 1500-1520 restore the data list for another reading be- 
fore the selection of the next player, if any remain. 

Lines 1530-1610 sort the scores, along with the appropriate 
players’ names, from high to low if there is more than one player 
(line 1535). If MM is equal to 1 in line 1600 and 1610, the list is not 
perfect and the sort will begin again. Otherwise the program will 
continue to line 1650. 

Lines 1650-1900 print all the players’ names and their ac- 
cumulated scores and terminate the program. 

Lines 4000-4210 contain the data items and their correspond- 
ing prices. 
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RESPECT YOUR COMPUTER 


Do you have respect for your computer? Do you believe that it is 
telling you the truth all of the time ?,You’re jm for a surprise then! 
This is an excellent program to try on that person or friend who 
thinks he or she is always right or who feels they never make a 
wrong guess. Keep all heavy objects away’ from your computer 
when running this program; your friends might be tempted to bash 
the CPU in! 


Sample Run 


NATURALLY YOU SHOULD HAVE SOME 
RESPECT FOR YOUR COMPUTER, EVEN 
THOUGH IT IS ONLY A MACHINE. - 
THIS MACHINE WILL NOW TEST YOUR cay 
PATIENCE, TO SEE JUST HOW MUCH 
RESPECT YOU DO HAVE FOR THIS 

MACHINE. YOU SEE, THIS 

IS ONE GAME THAT YOUR COMPUTER 

WILL STAKE ITS CIRCUITS ON! 

YOU CANNOT, AND WILL NOT 

BEAT IT 1!!! 
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PRESS ENTER...PLEASE? 


IF YOU ARE READY, WE WILL NOW 
BEGIN, | HAVE SELECTED A NUMBER 
BETWEEN 1 AND 10, TELL ME 

THE NUMBER? 4 

YOUR NUMBER: 4 

SORRY. 


NUMBERS GUESSED: 4 
GUESS AGAIN... 

THE NUMBER? 1 

YOUR NUMBER: 1 
SORRY. 

NUMBERS GUESSED: 4 1 
GUESS AGAIN... 

THE NUMBER? 9 

YOUR NUMBER: 9 
SORRY. 


NUMBERS GUESSED :419 
GUESS AGAIN... 


THE NUMBER? 3 

YOUR NUMBER: 3 

SORRY. 

NUMBERS GUESSED: 4193 
GUESS AGAIN... 

THE NUMBER? 10 

YOUR NUMBER: 10 

SORRY. 


NUMBERS GUESSED : 419310 
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GUESS AGAIN... 

THE NUMBER? 8 

YOUR NUMBER: 8 

SORRY. 

NUMBERS GUESSED: 4193108 
GUESS AGAIN... 

THE NUMBER? 7 

YOUR NUMBER: 7 

SORRY. 

NUMBERS GUESSED: 41931087 
GUESS AGAIN... 

THE NUMBER? 6. 

YOUR NUMBER: 6 

SORRY. 

NUMBERS GUESSED: 419310876 
GUESS AGAIN... 

THE NUMBER? 2 

YOUR NUMBER: 2 

SORRY. 

NUMBERS GUESSED: 4193108762 
GUESS AGAIN... 


NEVERMIND... 
THE NUMBER | HAD SELECTED WAS: 5 


YOUR GUESSES WERE:4193108762 
LET’S TRY AGAIN... 
OF THE 9 GUESSES YOU MADE, 
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NONE OF THEM MATCHED THE 
NUMBER | HAD SELECTED..... 


STOP 


This is not a complete run. 


MESSAGE 


N 
CHANGE 
VALUE OF X 
MESSAGE 


Flowchart for Respect Your Computer. 
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Program Listing 


100 REM PROGRAM TITLE: RESPECT YOUR COMPUTER 
130 CLS 
200 RANDOM. P=1:Q=1:X=10: IF WW=1 THEN 900 
2590 PRINT"NATURALLY YOU SHOULD HAVE SOME" 
300 PRINT" RESPECT FOR YOUR COMPUTER, EVEN" 
390 PRINT"'THOUGH IT IS ONLY A MACHINE." 
400 PRINT" THIS MACHINE WILL NOW TEST YOUR" 
990 PRINT" PATIENCE TO SEE JUST HOW MUCH" 
900 PRINT"RESPECT YOU DO HAVE FOR THIS" 
990 PRINT" MACHINE. YOU SEE, THIS" 

600 PRINT"IS ONE GAME THAT YOUR COMPUTER" 
690 PRINT'WILL STAKE ITS CIRCUITS ON" 
700 PRINT"YOU CANNOT, AND WILE NOT" 
790 PRINT'BEAT IT !!!" 
800 PRINT 
850 INPUT" PRESS ENTER... PLEASE"; XX 
900 CLS 
9530 PRINT"'IF YOU ARE READY, WE WILL NOW" 

1000 PRINT"BEGIN. I HAVE SELECTED A NUMBER" 
1050 PRINT" BETWEEN 1 AND";X;" TELL ME" 
1100 INPUT" THE NUMBER"; N 

1150 IF N<i OR N)X THEN 1100 

1200 PRINT"YOUR NUMBER: ";N 

1250 FOR [T=1 TO 800:NEXT 

1300 PRINT CHR$(83);,CHR$(79) ,CHRS (82) ,; 

1350 PRINT CHR$‘(82);CHR$(89);,CHRS$ (46) 

1400 PRINT 

1450 AtCP)=N 

1300 PRINT’ NUMBERS GUESSED:",; 

13590 FOR I=1 TO P: PRINT ACI); :NEXT 

1600 PRINT: P=P+i 

1650 PRINT"GUESS AGAIN " 

1700 IF P+=k THEN 1900 

i800 PRINT 

1830 GOTO 11900 

1900 PRINT 

1950 PRINT'NEVERMIND. -" 

2000 PRINT"THE NUMBER I HAD SELECTED WAS:", 

2030 A=X 

2100 FOR IT=1 TO P-1 

2150 IF A<dXACTI) THEN NEXT:GOTO 2250 

2200 A=A-1:GOTO 2100 

2290 REM PRINT NUMBER 

2300 PRINT A: PRINT 

2350 PRINT" YOUR GUESSES WERE:", 

2400 FOR JT=1 TO P-~1l 
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2450 PRINT ACI); :NEXT 
2500 PRINT 

2550 Q=Q+1:TP=TP+P-1 

2600 IF G@)=4 THEN 3000 

2650 PRINT"LET'S TRY "; 

2700 IF Q@=3 PRINT"ONCE MORE ..":GOTO 2800 
2750 PRINT"AGAIN.._" 

2800 FOR I=1 TO 1200:NEXT 

2850 PRINT: P=! 

2900 GOTO 850 

3000 PRINT 

3050 PRINT"OF THE";TP;"GUESSES YOU MADE," 
3100 PRINT"NONE OF THEM MATCHED THE" 

3150 PRINT"NUMBER I HAD SELECTED.. .." 
3200 FOR I=1 TO 2000:NEXT:Z=X 

3250 REM MORE ? 

3300 IF X=10 THEN X=5:GOTO 3450 

3350 IF X=5 THEN X=3:GOTO 3450 

3400 A=0:GOTO 3850 

3450 PRINT:P=1:Q=1:1F X=3 GOTO 3600 

3500 PRINT"TO TAKE THIS A STEP FURTHER," 
3550 PRINT"“LET'S TRY SOMETHING DIFFERENT. " 
3600 PRINT“ INSTEAD OF 1 AND";Z;"I WILL" 
3650 PRINT"SELECT BETWEEN 1 AND"; X; "AND" 
3700 PRINT"GIVE YOU";X-1;"TRIES..." 

3750 PRINT 

3800 GOTO 850 

3850 PRINT 

3900 PRINT"THIS IS REALLY HARD TO BELIEVE..." 
3950 PRINT" YOU MADE";TP; "GUESSES, I GAVE" 
4000 PRINT“ YOU THREE DIFFERENT BREAKS AND" 
4050 PRINT"YOU MATCHED";A;"OF THE NUMBERS" 
4100 PRINT"THAT I SELECTED !!!" 

4150 FOR I=1 TO 3000:NEXT 

4200 CLS:PRINT CHR$(23) 

4250 PRINT"YOU CAN'T WIN. .. " 

4300 PRINT: PRINT"TURKEY !1" 

4350 FOR I=1 TO 1500:NEXT:CLS 

4400 PRINT"READY TO TRY AGAIN, YOU'LL" 
4450 PRINT"GET THE SAME BREAKS AS BEFORE"; 
4500 INPUT X$ 

4550 IF X$="N" OR X$="NO" THEN 4650 

4600 WW=1:GOTO 100 

4650 CLS: PRINT CHR$(23? 

4700 PRINT"CHICKEN ‘"“ 

4750 GOTO 4750 
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Variables and Strings 


P - Attempts (guesses) 

X - Attempts per run 

N - Number input as guess 

A() - Subscripted variable for guesses 

A - Computer selected number 

TP - Total guesses 

Z - Value of X (current) for message 

WW - For skipping the instructions (playing more than once) 


Explanation of the Program Lines 


Line 200 initializes three variables and skips the instructions if 
WW is equal to 1 (more than one run). 

Lines 250-850 print the general instructions. 

Lines 900-1100 begin the rounds and accept user’s guess. 

Line 1150 tests the value of N to make sure it is within the 
specified limits. 

Lines 1200-1550 print several messages and the number 
guessed. It then places each number in a subscript A(P) = N for 
further reference. 

Lines. 1600-1850 cause a return to line 1100 for another guess if 
P is not greater than or equal to X. 

Lines 1900-2450 print the number selected by the computer 
and all of the numbers the user selected. 

Lines 2500-2900 begin it all again if Q is less than or equal to 3 
and the user has not hit the computer with a hammer. 

Lines 3000-3800 print the user’s total number of guesses, 
change the value of X to a lower number, and then start the routine 
again. If X = 3, the program branches to line 3850. 

Lines 3850-4750 print a closing message and ask the user if he 
or she would like to try again. 
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VERS UE 
eo Wirr 


LOVE ONE ANOTHER 


Having problems with your spouse, girlfriend, or boyfriend? Don’t 
take it to court, take it to your computer ! If you’re having difficulties 
expressing your complaint , you can register it with this program. 
Then your wife, husband, girlfriend, or boyfriend can register his or 
her complaints. The final outcome? Discussions of problems you 
thought didn’t exist! 


Sample Run 


LOVE ONE ANOTHER 


ARE YOU MARRIED? YES 

WHAT IS YOUR SPOUSE'’S 

FIRST NAME, PLEASE? MARGRET 

SO YOU ARE HAVING A FEW PROBLEMS 
AND NEED YOUR COMPUTER’S ASSISTANCE? 
YOU WILL GO THROUGH THE PROGRAM 
FIRST; THEN MARGRET CAN GO THROUGH 
IT. | WILL THEN GO THROUGH EACH 

LIST AND PICK OUT THE MAJOR 

ISSUES. IF AT ALL POSSIBLE, KEEP 
COMPLAINTS TO THREE OR FEWER 
WORDS. THIS WILL KEEP THINGS 

EASIER TO MANAGE. 
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BEGIN? 


YOUR FIRST NAME? SAM 

SAM YOU WILL HAVE THE 
OPPORTUNITY TO REGISTER 
UP TO 10 COMPLAINTS. IF YOU 
DO NOT HAVE 10, JUST PRESS 
‘ENTER’ FOR A COMPLAINT. 


LET'S HAVE COMPLAINT NUMBER 1 ?RELATIVES 
NUMBER 2 ?COMMUNICATION 

NUMBER 3 ?SMOKING 

NUMBER 4 ?GOING PLACES 

NUMBER 5 RELATIVES 

NUMBER 6 ? 


WE WILL NOW GIVE EACH 
COMPLAINT A PRIORITY NUMBER. 
THESE NUMBERS WILL RANGE 
FROM 1 (LEAST SIGNIFICANT) 

TO 10 (MOST SIGNIFICANT). NO 
FRACTIONS, PLEASE 


COMPLAINT NUMBER 17 : 
RELATIVES...PRIORITY.? 8 
COMPLAINT NUMBER 2 
COMMUNICATION...PRIORITY? 10 
COMPLAINT NUMBER 3 : 
SMOKING...PRIORITY? 6 
COMPLAINT NUMBER 4 : 

GOING PLACES...PRIORITY? 7 
COMPLAINT NUMBER 5: 
RELATIVES...PRIORITY? 8 


PROCESSING DATA... 

ALL COMPLAINTS HAVE BEEN 
PROCESSED AND PLACED IN 
PRIORITY ORDER, SAM. 


IF YOU WILL CALL MARGRET TO 
THE COMPUTER, | WILL ACCEPT 
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THE ‘OTHER SIDE’ OF THE 


MARGRET PRESS ENTER? 

MARGRET, SAM HAS ENTERED 5 
COMPLAINTS. | WILL NOW RECEIVE 
YOUR VERSION OF COMPLAINTS, AND 
THEN COMPARE THE TWO SETS 

AND RETURN MY FINDINGS... 


MARGRET YOU WILL HAVE THE 
OPPORTUNITY TO REGISTER UP 
TO 10 COMPLAINTS, IF YOU 

DO NOT HAVE 10, JUST PRESS 
‘ENTER’ FOR A COMPLAINT. 


LET’S HAVE COMPLAINT NUMBER 1 ?RELATIONS 


NUMBER 2? 


WE WILL NOW GIVE EACH 
COMPLAINT A PRIORITY NUMBER. 
THESE NUMBERS WILL RANGE 
FROM 1 (LEAST SIGNIFICANT) 

TO 10 (MOST SIGNIFICANT). NO 
FRACTIONS, PLEASE. 


COMPLAINT NUMBER 1: 
RELATIONS... 


PRIORITY? 10. 
PROCESSING DATA... 


ALL COMPLAINTS HAVE BEEN 
PROCESSED AND PLACED IN 
PRIORITY ORDER MARGRET. 
SAM HAS MORE 

COMPLAINTS, AS YOU PROBABLY 
SEE IN THE PRINTOUT, MARGRET. 
BUT THAT ISN'T THE ISSUE. 
WHAT IS IMPORTANT ARE THE 
MAJOR COMPLAINTS: 

SAM'S IS: COMMUNICATION 
MARGRET’S IS: RELATIONS 
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START 


INSTRUCTIONS 
STOP 
N 
Y 


URRENT USER S 
NAME 
COMPLAINT 
(INPUT) 


PRIORITY 
(INPUT) 


OUTPUT 


MESSAGE 
COMPLAINT 


FINAL 
MESSAGE 
N 
: 


N 
SECOND USER 
ENTRIES 
TRANSFER DATA 
SORT LISTS 


Flowchart for Love One Another. 


114 


DISCUSS THIS PROBLEM BETWEEN 
YOURSELVES NOW, THEN PRESS ENTER? 


MARGRET HAS NO MORE COMPLAINTS. 
SAM’S OTHER COMPLAINTS ARE: 
RELATIVES 

DISCUSS THIS PROBLEM BETWEEN 
YOUSELVES NOW, THEN PRESS ENTER? 


MARGRET HAS NO MORE COMPLAINTS. 
SAM’S OTHER COMPLAINTS ARE: 
GOING PLACES 


STOP 


This is not a complete run. In between the discussions of the 
complaints, each is placed on a chart for viewing. 


Program Listing 


010 REM PROGRAM TITLE: LOVE ONE ANOTHER 

20 CLEAR 1000:CLS 

30 PRINT"LOVE ONE ANOTHER": PRINT 

40 INPUT"ARE YOU MARRIED";AS$ 

90 IF LEFTSC(A$,1)="Y¥" THEN 120 

60 PRINT"ARE YOU CURRENTLY DATING A" 

70 INPUT"GIRLFRIEND OR BOYFRIEND" ,AS 

B8O IF LEFTS(A$,1)="Y¥" THEN 160 

90 PRINT"WHY ARE YOU RUNNING THIS" 

100 PRINT" PROGRAM DINGY !! 1" 

110 GOTO 1840 

120 PRINT'WHAT IS YOUR SPOUSE'S" 

130 PRINT"FIRST NAME, PLEASE", 

1940 INPUT NS 

130 FPRINT@O,CHRS(30);:GOTO 180 

160 PRINT"WHAT IS YOUR GIRLFRIEND OR" 

170 PRINT" BOYFRIEND'S FIRST NAME", :GOTO 140 
180 PRINT"SO YOU ARE HAVING A FEW PROBLEMS" 
190 PRINT'AND NEED YOUR COMPUTER'S ASSISTANCE .“ 
200 PRINT" YOU WILL GO THROUGH THE PROGRAM" 
210 PRINT"FIRST, THEN ";N$;,‘ CAN GO THROUGH" 
220 PRINT" IT I WILL THEN GO THROUGH EACH" 
230 PRINT"LIST AND PICK OUT THE MAJOR" 
240 PRINT"ISSUES. IF AT ALL POSSIBLE, KEEP" 
290 PRINT"COMPLAINTS TO LESS THAN FOUR" 
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260 PRINT"WORDS THIS WILL KEEP THINGS" 

270 PRINT"EASIER TO MANAGE." 

280 PRINT 

2?0 PRINT 

300 INPUT" BEGIN"; A$ 

310 CLS:DIM €$¢11),FC(11) 

320 INPUT" YOUR FIRST NAME"; NN§ 

330 PRINT NN§;" YOU WILL HAVE THE OPPORTUNITY" 
340 PRINT"TO REGISTER UP TO TEN COMPLAINTS, IF YOU" 
390 PRINT"DO NOT HAVE 10, JUST PRESS" 

360 PRINT" 'ENTER' FOR A COMPLAINT." 

370 PRINT 

380 C=1 

390 PRINT"LET'S HAVE COMPLAINT NUMBER" ;C; 

400 IF Cd=2 PRINT"NUMBER ",C; 

410 INPUT C€C§(C):.GOTO 1220 


420 IF C$§(Ci="" THEN 470 
430 REM STEP COUNTER 
440 C=CH+i 


450 IF C=+=ii THEN 470 

460 GOTO 400 

470 T=C-1 

480 IF I=0 THEN 370 

490 CLS 

900 PRINT"'WE WILL NOW GIVE EACH" 

210 PRINT"COMPLAINT A PRIORITY NUMBER." 
220 PRINT"THESE NUMBERS WILL RANGE" 

930 PRINT" FROM 1 (LEAST SIGNIFICANT)" 
940 PRINT"TO 10 (MOST SIGNIFICANT), NO" 
290 PRINT" FRACTIONS, PLEASE." 

260 PRINT 

270 Ce=1 

280 PRINT" COMPLAINT NUMBER" ,C;" 

990 PRINT C$ (C) 2G 

600 INPUT" PRIORITY"; P(C) 

610 IF P(@)<i OR P(C)910 THEN 630 ELSE C=C+1 
620 IF Corl THEN 650 

630 CLS 

640 GOTO 580 

630 REM ARRANGE AS PER PRIORITY 

655 PRINT" PROCESSING DATA. ." 

660 C=1:X=0 

670 IF PCC)>=P(C+1i1) THEN 710 

680 P=P(C):P(C)=P(C+1):P(C+1)=P 

690 C$=C8(C):C$(Cd=C$(0C+#1) 2:05 0C+1)=CS 
700 X=1 

710 C=C+1 

720 IF Cd1l THEN 740 
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730 
740 
730 
760 
770 
780 
790 
800 
810 
&20 
830 
840 
8350 
860 
870 
880 
890 
900 
910 
920 
930 
940 
730 
760 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
10984 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 


GOTO 670 

IF X=1 THEN 660:REM ORDER AGAIN 
REM IN ORDER 

PRINT“ ALL :COMPLAINTS HAVE BEEN" 
PRINT" PROCESSED AND PLACED IN" 
PRINT" PRIORITY ORDER, "INNS ;" " 
IF WW=i THEN 1010 

WWe 1 

PRINT 

PRINT" IF YOU WILL CALE ";N8;" TO" 
PRINT'THE COMPUTER, I WILL ACCEPT" 
PRINT" THE ‘OTHER SIDE' OF THE" 
PRINT"'COIN... " 

PRINT N$;:INPUT" PRESS ENTER" ;X 
CLS 

PRINT N§;,", ‘“;NNS;" HAS ENTERED"; 1 
PRINT" COMPLAINTS, I WILL NOW RECEIVE" 
PRINT" YOUR VERSION OF COMPLAINTS," 
PRINT''THEN COMPARE THE TWO SETS" 
PRINT" AND RETURN MY FINDINGS... “" 
REM TRANSFER DATA 

FOR W=1 TO I 

WS(W)I=CS OW): CSCW)" 
W(W)=P(W) : PCW) =0 

NEXT 

AS=NNS :NN@=N5 : F=I 

PRINT 

GOTO 330 

REM ALL COMPLAINTS IN 

PRINT 

INPUT" ENTER PLEASE" ,;X 

CLS 

PRINT TABC(10) X$; TABC4S) N$ 

PRINT TAB(C(0O)?' COMPLAINT", 

PRINT TAB(18) "PRIORITY"; 

PRINT TAB(35) "COMPLAINT"; 

PRINT TAB(5Z2)"PRIORITY" 

FOR Q=0 TO §$9:PRINT"X"; :NEXT: PRINT 
G=I:J=1 

PRINT TAB(O) W$C¢I); TABC21) WCI),; 
IF I>G THEN 1150 

PRINT TAB(35) CSCI); TAB(S6) PCT) 
I=I +1 

IF I<=F THEN 1200 

IF I>F AND I¢=G THEN 1130 

REM BRANCH TO RESULTS 

GOTO 1300 

IF I>G THEN PRINT:GOTO 1120 
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1210 GOTO 1120 

12720 REM LETTER COUNT (1 
1230 IF LEN(C§(C))d=21 T 
1240 GOTO 420 

1290 PRINT" YOU NEED TO SHORTEN" 

1260 PRINT"THE COMPLAINT A LITTLE." 

1270 GOTO 400 

1300 REM RESULTS 

1310 PRINT: INPUT" KEY ENTER WHEN READY", 
1320 CLS 

1330 IF F>G THEN PRINT X$;:R=1:GOTO 1360 
1340 IF F=G THEN 1410 

1350 PRINT N6&; 

1360 PRINT" HAS MORE" 

1370 PRINT'COMPLAINTS, AS YOU PROBABLY" 
1380 PRINT'SEE IN THE PRINTOUT "“",; 

13790 IF R=1 PRINT NS$;".": GOTO 14490 

1400 PRINT X$;".":GOTO 1440 

19410 PRINT X$;" YOU AND ";N$;" HAD AN" 
1420 PRINT" EQUAL AMOUNT OF COMPLAINTS, AS" 
1430 PRINT" YOU PROBABLY KNOW BY NOW." 
1440 PRINT: 1[=1 

1430 PRINT" BUT THAT ISN'T THE ISSUE." 
19460 PRINT"WHAT IS IMPORTANT ARE THE" 
1470 PRINT'MAJOR COMPLAINTS: " 

19480 PRINT X$;,"'S 385: "“;W§C1T) 

19490 PRINT NS$;"'S 185: ",C$C1T) 

1300 PRINT 

1310 PRINT"'DISCUSS THIS PROBLEM BETWEEN" 
15320 PRINT" YOURSELVES NOW, THEN PRESS ENTER", 
1930 INPUT X:CLS 

1340 T=I+i1 

1350 IF I>F THEN 1600 

1960 IF I>G THEN 1630 

1370 PRINT: IF JJ=1 THEN 1650 

15380 PRINT"THE NEXT AREA OF COMPLAINTS:" 
1990 GOTO 1480 

1600 PRINT X$;" HAS NO MORE COMPLAINTS." 
1610 IF [>G THEN 1630 

16Z0 GOTO 1690 

1630 PRINT N§;" HAS NO MORE COMPLAINTS." 
1640 GOTO 1690 

1650 PRINT N&;"'S OTHER COMPLAINTS ARE:" 
1660 JJ=1 

1670 PRINT Cs(C(I> 

1680 GOTO 13500 

1690 IF I>F THEN 1750 

1700 PRINT X§,;,"'S OTHER COMPLAINTS ARE:" 


a its 
tv g 
az 
— 

NJ + 
Ci 

=] 


118 


1710 JJ=2 

1720 PRINT WS$(¢1) 

i730 GOTO 1500 

1730 REM FINISH 

1760 PRINT 

1770 PRINT"'IF YOU DID NOT SOLVE ALL" 
1780 PRINT"OF YOUR DISAGREEMENTS RUN" 
1790 PRINT"THE PROGRAM AGAIN." 

1800 PRINT 

1810 PRINT" REMEMBER, WHEN YOU HAVE PROBLEMS" 
1820 PRINT" DON'T TAKE IT TO COURT..." 
1830 PRINT'TAKE IT TO YOUR COMPUTER. " 
1840 PRINT 

1830 PRINT"END OF PROGRAM. " 

1860 END 


Variables and Strings 

A$ - General string input 

N§ - First name of spouse, girlfriend, or boyfriend 

C$(D - Subscripted, for up to 10 complaints 

P(D - Subscripted, for up to 10 priority numbers 

C - Counter, number of complaints 

I - Total of variable C minus 1 

C$ and X - Used for placing complaints in order of priority 

WW - Will be equal to 1 when both parties have entered complaints 

NN$ - Current user (entering data) 

W8(I) and W(I) - Take on the contents of C$(I) and P(I) before the 
second user enters data 

X$ - Contents of NN§$ (first name) 

F - Value of I (total, first users entries) 

G - Value of I (total, second users entries) 

R - For correct message output 

JJ - Correct message output 


Explanation of the Program Lines 

Line 20 clears 1000 bytes of memory for string storage. 

Lines 40-170 ask the first user for the first name of his or her 
spouse, girlfriend, or boyfriend. If the questions are not applicable, 
the program is terminated. 

Lines 180-310 display the general instructions. 

Lines 320-460 lets the current user input up to 10 complaints. 

Line 410 sends program control to line 1220, which tests the 
length of each complaint. This insures that the printout (chart) will 
be kept as neat and readable as possible. 
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Lines 470-480 sets the value of I to C-1. If I= 0 (zero), the 
program will loop back to line 370, the beginning of the complaint 
entries. 

Lines 490-640 allow the user to input priority values for each 
complaint entered. 

Lines 650-780 rearrange the complaints according to their 
priority numbers, so that the complaints are arranged from highest 
priority to lowest priority when printed. 

Lines 790-1000 allow the users partner to register his or her 
complaints. Lines 930-980 transfer the current data to alternate 
Strings and variables, so the information will not be lost when the 
second person enters his or her complaints. Line 1000 sends pro- 
gram control back to line 330 for the entry of the new complaints. 

Lines 1010-1190 display each user’s complaints and priorities 
in order from high (most important) to low (least important). 

Lines 1310-1440 display generalized messages for each user. 

Lines 1450-1730 display each user’s complaints one at a time, 
and allow them to discuss each one before continuing. 

Lines 1750-1860 display the final message and end the pro- 
gram. 
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| HAVE FOUND THAT 
YOU WOULD BE 
MOST COMPATIBLE 
WITH THE GOLDFISH 
YOU NOW OWN! 


DATE SERVICE 


Been having problems finding the right person to date? Have no 
fear; your computer will now try and rescue you! Naturally, you and 
up to 9 others (of the opposite sex) will answer all necessary 
questions. After this, the computer will compile all data collected 
and tell you who you would be most compatible with. Keep in mind 
that this is only a simulation or game. The computer has no way of 
judging the final outcome of a person’s thought pattern. 


Sample Run 
*k*DATE SERVICE*« 


OPERATING INSTRUCTIONS? YES 


BEEN HAVING PROBLEMS FINDING 

THE RIGHT PERSON TO DATE? 

HAVE NO FEAR - COMPUTER DATE 
SERVICE IS HERE !! 

NATURALLY, YOU'LL NEED TO INPUT 
REQUIRED DATA SO THE COMPUTER 
CAN SORT AND SELECT A PERSON 
THAT MIGHT BE COMPATIBLE WITH YOU. 


YOUR FIRST NAME? MAC 


AGE? 31 
MALE OR FEMALE (1 or 2)? 1 
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USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 

YOUR HOBBY ?COMPUTERS 

YOUR INTEREST ?MONEY 

WHAT YOU LIKE?7EQQOD 

WHAT YOU DISLIKE?NOISE 

TYPE OF MUSIC? EASY 

TYPE OF CAR? LARGE 

COLOR CHOICE? BLUE 


THE NEXT PART OF THE PROGRAM 
WILL BE DEALT WITH IN ONE 

OF TWO WAYS: 

FIRST, YOU CAN HAVE SOMEONE 
ELSE ANSWER THE QUESTIONS. 
SECOND, YOU CAN ANSWER THEM 
ABOUT PERSONS YOU KNOW. 


WHAT WILL IT BE (1 or 2)? 4 


SEND IN FEMALE # 1 
TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, MAC. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? SARAH 
AGE? 29 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY ?COOKING 
YOUR INTEREST ?SEWING 
WHAT YOU LIKE? PARTIES 
WHAT YOU DISLIKE?NOISE 
TYPE OF MUSIC? EASY 
TYPE OF CAR? SMALL 
COLOR CHOICE? RED 


SEND IN FEMALE # 2 


122 


TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, SARAH. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? SANDRA 

AGE? 32 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY ?COMPUTERS 
YOUR INTEREST ?COLLECTING 
WHAT YOU LIKE?FOOD 

WHAT YOU DISLIKE?7BUGS 
TYPE OF MUSIC? ROCK 

TYPE OF CAR? SMALL 

COLOR CHOICE? BLUE 


SEND IN FEMALE # 3 
TO ANSWER THE QUESTIONS, YOU 
SHOULD NOT BE PRESENT, SANDRA. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? MARTHA 

AGE? 28 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY?MEN 

YOUR INTEREST ?MONEY 
WHAT YOU LIKE?7DIAMONDS 
WHAT YOU DISLIKE?ANIMALS 
TYPE OF MUSIC? EASY 

TYPE OF CAR? LARGE 
COLOR CHOICE? GREEN 


SEND IN FEMALE # 4 
TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, MARTHA. 


PRESS ENTER WHEN READY 
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YOUR FIRST NAME? ROBIN 

AGE? 35 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY?STAMPS 

YOUR INTEREST ?FLYING 

WHAT YOU LIKE?7LARGE HOUSES 

WHAT DO YOU DISLIKE? SMALL HOUSES 
TYPE OF MUSIC? ANY KIND 

TYPE OF CAR? LARGE 

COLOR CHOICE? BLUE 


SEND IN FEMALE # 5 
TO ANSWER THE QUESTIONS. YOU 
SHOULD NOT BE PRESENT, ROBIN. 


PRESS ENTER WHEN READY 


YOUR FIRST NAME? SHERRY 

AGE? 27 

USING ONE WORD FOR EACH, ANSWER 
THESE QUESTIONS? 


YOUR HOBBY ?FURNITURE 

YOUR INTEREST ?CARS 

WHAT YOU LIKE ?7MONEY 

WHAT YOU DISLIKE?FAST FOODS 
TYPE OF MUSIC? COUNTRY 
TYPE OF CAR? SMALL 

COLOR CHOICE? PURPLE 


IF MAC IS NOT PRESENT, SEND 
HIM TO THE COMPUTER, PLEASE. 


MAC, 5 WOMEN ANSWERED THE QUESTIONNAIRE. 
DO YOU HAVE MORE, OR SHALL 

| PROCESS THE CURRENT DATA. 

(MORE OR PROCESS)? PROCESS 

| WILL NOW SORT AND PROCESS THE DATA 
YOU WILL KNOW IF ONE WILL BE 
COMPATIBLE IN A MOMENT MAC. 
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START 
INSTRUCTIONS 
IF NEEDED 


INPUT ALL 
DATA 


MORE DATA 


PROCESS 
ALL DATA 


OUTPUT LIST 
PERCENT AMTS 


FINAL 
_ MESSAGE | 


Flowchart for Date Service. 
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NAME PERCENT COMPATIBLE 


SANDRA....... 50 % 
MARTHA....... 50 % 
SARAH ....... 37.5 % 
ROBIN....... 37.5 % 
SHERRY..... 12.5 % 
ENTER? 


REMEMBER, THIS IS ONLY A 
COMPUTER PROGRAM 
EXPRESSING WHO MIGHT BE 
COMPATIBLE WITH YOU THROUGH 
ENTERED DATA.... 


END OF##*DATE SERVICE 


Program Listing 


S10 REM PROGRAM TITLE: DATE SERVICE 

20 CLEAR 1000:DIM R(12) 

30 RANDOM: J=0.AM=5 

40 CLS: M$="MALE":F$S="FEMALE":U$="YOUR" 

50 PRINT"** DATE SERVICE *x" 

60 PRINT: E$="YOu" 

70 PRINT"OPERATING INSTRUCTIONS (Y/N)D"; 
80 INPUT A$ 

90 IF LEFTS(A$,1)¢>"Y¥" THEN 190 

100 PRINT 

110 PRINT"BEEN HAVING PROBLEMS FINDING" 
120 PRINT"THE RIGHT PERSON TO DATE ?" 

130 PRINT"HAVE NO FEAR - COMPUTER DATE" 
1490 PRINT'SERVICE IS HERE !!" 

150 PRINT"NATURALLY, YOU'LL NEED TO INPUT" 
160 PRINT" REQUIRED DATA SO THE COMPUTER" 
i170 PRINT"CAN SORT AND SELECT A PERSON" 
180 PRINT" THAT MIGHT BE COMPATIBLE WITH YOU." 
190 PRINT 
200 PRINT US$," FIRST NAME", 
205 INPUT N§(J):IF N§(J)="" THEN 200 
210 INPUT"AGE";ACJ) 
215 IF J<>0 THEN PRINT:GOTO 230 
220 INPUT"MALE OR FEMALE (1 OR 2)";8: PRINT 
225 IF S=i THEN WS=F$ ELSE W$=M5 
230 PRINT'USING ONE WORD FOR EACH, ANSWER" 
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240 
249 
200 
z260 
270 
272 
279 
280 
282 
285 
2370 
300 
310 
320 
329 
330 
340 
330 
360 
370 
380 
390 
400 
9id 
420 
430 
440 
9230 
460 
470 
480 
490 
49d 
900 
910 
220 
930 
240 
9499 
250 
960 
270 
280 
290 
600 
610 
620 
630 


PRINT" THESE QUESTIONS "“"; 


IF SE<>2 THEN PRINT NS$(J);"." ELSE PRINT 


PRINT US$;" HOBBY"; : INPUT A$(J) 
PRINT U$;" INTEREST" ;: INPUT BS$(J) 
PRINT 'WHAT “;ES$;," LIKE", 

IF SE=2 PRINT"S", 

INPUT Cs(J) 

PRINT'WHAT ";,E5;" DISLIKE"; 

IF SE=2 PRINTS", 

INPUT D$(J} 

INPUT"TYPE OF MUSIC";ES$(J) 
INPUT"TYPE OF CAR"; FS$ (J) 

INPUT" COLOR CHOICE" ;G$§(J) 

CLS: IF J=AM THEN 620 

IF J¢00 PRINT: J=J+1:GOTO 430 
PRINT" THE NEXT PART OF THE PROGRAM" 
PRINT"'WILL BE DEALT WITH IN ONE" 
PRINT“OF TWO WAYS:" 

PRINT"FIRST, YOU CAN HAVE SOMEONE" 
PRINT" ELSE ANSWER THE QUESTIONS " 
PRINT'SECOND, YOU CAN ANSWER THEM" 
PRINT“ ABOUT PERSONS YOU KNOW. “ 
PRINT: J=J+1 

PRINT’ WHAT WILL IT BE (1 OR 2)"; 
INPUT SE:NS=N$ (0) 

IF SE=1 THEN 460 

IF SE=2 THEN 93540 

GOTO 400 

REM OTHERS TO INPUT 

PRINT'SEND IN "“j,WS;" #"°;J 

PRINT"TO ANSWER THE QUESTIONS, YOU" 
PRINT" SHOULD NOT BE PRESENT, ",; 

IF J=6 PRINT: GOTO $10 

PRINT NS¢(J-1);," ": PRINT 

PRINT" PRESS ENTER WHEN READY"; 
INPUT X$ 

CLS:GOTO 190 

REM USER TO INPUT 

IF J>=2 PRINT" ANSWER ";:GOTO 600 
PRINT" YOU ARE ABOUT TO ANSWER THE" 
PRINT"QUESTIONS FOR THE ",W§;"'S" 
PRINT" THAT YOU KNOW DO NOT BE" 
PRINT"“ONE SIDED TO TRY AND OBTAIN" 
PRINT" A COMPATIBLE PERSON. ANSWER" 
PRINT"AS FACTUALLY AS POSSIBLE, "; 


PRINT NS;" ":GOSUB 850: PRINT:GOTO 510 


REM DATA IN 
CLS 
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640 PRINT"IF “;N$;" IS NOT PRESENT, SEND" 
650 IF S=i PRINT"HIM ";:GOTO 670 

660 PRINT"HER "; 

670 PRINT'TO THE COMPUTER, PLEASE." 

680 PRINT: IF AA=AM-X THEN PRINT:GOTO 890 


685 IF SE=2 PRINT"YOU HAVE "; :GOTO 720 
690 PRINT NS;",";,0; 
700 IF S=1 PRINT'WOMEN "'; : GOTO 720 


710 PRINT"'MEN "; 

720 PRINT" ANSWERED THE QUESTIONNAIRE. * 
730 PRINT'DO YOU HAVE MORE, OR SHALL" 

740 PRINT"'I PROCESS THE CURRENT DATA." 
730 INPUT" (MORE OR PROCESS)";Q5 

760 IF Q$="MORE" THEN 790 

770 IF Q$="PROCESS" THEN PRINT:GOTO 890 
780 PRINT:GOTO 690 

790 PRINT N$;" UP TO";10-J; "MORE CAN" 

800 PRINT" ANSWER, THEN I MUST PROCESS." 
810 INPUT"HOW MANY MORE DO YOU HAVE'";X 
820 AA=AM: AM=AM+X 

830 IF AM>=11 THEN AM=AA:PRINT: GOTO 790 
840 J=J+1: PRINT: ITF SE=2 THEN 310 ELSE 460 
830 REM FOR INPUT 

8395 IF Jd>=2 RETURN 

860 IF S=1 THEN VUS="HER" :E$="SHE":GOTO 880 
870 US="HIS":ES$="HE" 

880 RETURN 

890 IF AACAM THEN AR=AM ELSE AR=AA 

900 PRINT'"I WILL NOW SORT AND PROCESS DATA" 
910 PRINT" YOU WILL KNOW IF ONE WILL BE" 
920 PRINT"COMPATIBLE IN A MOMENT ";N$;," " 
930 IT=0:X=1:P=1 

940 IF ABSCACI)-ACK))¢=5 THEN GOSUB 1150 
950 ON P GOTO 960,970,980,990,1000,1010,1020 
960 TS$=AS(1):A5=A5 6K): GOTO 1030 

970 TS$=BS5(1I):AS=B$(X):GOTO 1030 

980 TS$=C$(I1I).A5=C$¢(X):GOTO 1030 

990 TS$=D$(1I):A$=D$(X):GOTO 1030 

1000 TS$=ES5(I):AS=E$¢(X):GOTO 1030 

1010 TS=FS(I):A$=F5(X):GOTO 1030 

1020 T$=G5¢(1I):A$=G5C(X) 

1030 IF TS<¢)A$ THEN 1050 

1040 GOSUB 1150:REM MATCH 

1050 P=P+1 

1060 IF P=8 THEN 1080 

1070 GOTO 950 

1080 R(X)=TR: P=l 

1090 X=X+1 
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1100 IF X>AR THEN 1180 

1110 TR=0:GOTO 940 

1130 REM POINT PER MATCH 

1160 TR=TR+12.5 

1170 RETURN 

1180 REM PERCENT 

1190 T=sl1:F=0 

1200 IF R(I)=0 THEN 1240 

1210 IF R¢I)=RCI+1)> THEN 1240 

1220 R=RCI) ROTHER C 141): RC01+1)2R: F=1 
1230 NS=N$( I): NSCT) ENS C141) :NS CI4+1)=N5 
1Z40 T=I+1 

1250 IF I>AR THEN 1270 

1260 GOTO 1200 

1270 IF F=i THEN 1190 

1280 REM LIST 

1290 PRINT"NAME" TAB(20)"PERCENT COMPATIBLE" 
1300 PRINT:FOR I=1 TO AR 

1310 IF R(¢(I)=0 THEN 1330 

1320 PRINT NS$(I);". -"TABC25) RCI); "He" 
1330 NEXT 

1340 PRINT: FOR I=1 TO 2000 

1350 NEXT: INPUT" ENTER" ;X:CLS 

1360 PRINT"REMEMBER, THIS IS ONLY A" 
1370 PRINT"COMPUTER PROGRAM" 

1380 PRINT" EXPRESSING WHO MIGHT BE" 
1390 PRINT'COMPATIBLE WITH YOU THROUGH" 
19400 PRINT" ENTERED DATA. " 

19410 PRINT 

1420 PRINT"END OF ** DATE SERVICE **" 
1430 END 


Variables and Strings 


J - Counter, total persons entered 

AM - Current amount 

M$,F$, U$, & E$ - Are used for print messages, depending upon the 
sex of the main user 

N$ (J) - Name of person 

A(J) - Age of user 

5 & SE - Are used for print messages again, depending upon the sex 
of the main user 

A$ (J) & G§$(J) - Are used to enter necessary data 

AA - Value of AM, if additional persons are to be included 

P - Counter, for comparing entries 

R(X) - Total points, when entries match 

TR - Number of points per match 
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Explanation of the Program Lines 

Line 30 sets two variables: one is a counter; the other is the 
total number of potential partners that can respond during the initial 
section of the program. 

Lines 40-60 contain strings; the contents of these will change 
according to the questions and the sex of the user. 

Lines 70-180 display the general operating instructions. 

Lines 200-310 form the main body of the program. The main 
user answers all the questions first. 

Lines 320-440 begin the second part of the program, if 
J<>AM. 

Lines 460-530 call the other users to answer all necessary 
questions. 

Lines 540-610 are used for the main (first) user if he or she has 
chosen to answer the questions about people of the opposite sex. If 
the main user decides to answer these questions, he or she should 
not be one-sided as this will defeat the purpose of the program. 

Lines 620-750 call the main user back to the computer. At this 
point, he or she will be asked if there are more persons to input data. 

Line 760 branches to lines 790-840 for data entries involving up 
to 5 more people. 

Line 770 jumps to line 890 for the processing of the data 
entered. 

Lines 890-1270 compare each piece of data to the main users 
data. If a match is made 12.5 points are added to the total score. No 
points are given if the data does not match. 

Lines 1280-1430 print the entire list of names. The percentage 
of compatability is also printed if it is not equal to 0. 
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HOW ABOUT, NAW, NOT IN TOWN 


THEN WHAT ABOUT, NAW, LEFT 

THE COUNTRY. 

SELECT 1-6? 7 

SORRY PERSON CANNOT BE LOCATED 
IN THIS FILE... 


KEY A DATE 


No the computer will not not run out and get you a date! You'll be 
able to select more easily who you want to date though. With the 
help of this program, you'll build yourself a file for your own 
personal use that no one else can pry into. If another person comes 
along to nose into your file, they will be surprised if they don’t enter 
the correct code and the entire program disappears! 


Sample Run 


><><KEY A DATE><>< 


1) INSTRUCTIONS 

2) SEND DATA / RETRIEVE DATA 
3) SEE A NUMBER / ADD A NAME 
4) DELETE A NAME 

5) SEE ENTIRE LIST 

6) TERMINATE RUN 

1 


THE INSTRUCTIONS ARE QUITE STRAIGHT- 
FORWARD AND SIMPLE. ALMOST ALL 

OF US THAT ARE NOT MARRIED (AND 
SOME THAT ARE) CARRY AROUND A 
LITTLE BOOK. THIS LITTLE BOOK 
CONTAINS NAMES AND PHONE NUMBERS 
OF PERSONS OF THE OPPOSITE SEX 

WITH WHOM YOU MIGHT WANT TO 

MAKE A DATE. NOW YOUR COMPUTER 

IS ABOUT TO RELIEVE YOU OF THE 
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(— START} 


COMMAND LIST 


<> 7 NAME TO DELETE 


N 


<> - PRINT ENTIRE FILE 


Y TERMINATE 


N 
Fig. 3-14. Flowchart for Key a Date. 
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DATA TO TAPE 


Y 
C5 RETRIEVE DATA 
N 


DUMP PROGRAM 


STOP 


ADD A NAME 


_: PRINT NAME/NUMBER 


————-- —_——- NAME NOT IN FILE 


COMPARE 


Y NAME DELETED 


STOP 
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CHORE OF THUMBING THROUGH 
THAT LITTLE BOOK AND GIVE ONLY 


tee hee eet Vie Wt VL 


YOU ACCESS TO ITS CONTENTS. 


STRIKE A KEY 

YOU WILL BE ALLOWED TO ENTER 
UP TO 30 NAMES AND PHONE NUMBERS 
OF THE PEOPLE THAT YOU CHOOSE 
ALONG WITH THIS YOU WILL ENTER 
A CODE NUMBER (5 DIGIT). THIS 
CODE WILL BE SAVED ON TAPE 
ALONG WITH ALL THE OTHER DATA. 
WHEN YOU WANT TO RETRIEVE THE 
DATA, YOU'LL NEED TO REMEMBER 
YOUR CODE...OR YOU'LL NEVER 
SEE THE DATA AGAIN !! 


STRIKE A KEY 
><>< KEY A DATE ><>< 


1) INSTRUCTIONS 

2) SEND DATA / RETRIEVE DATA 
3) SEE A NUMBER / ADD A NAME 
4) DELETE A NAME 
5) SEE ENTIRE LIST 
6) TERMINATE RUN 


Program Listing 


10 REM PROGRAM TITLE: KEY A DATE 

Z20 CLEAR 1200:CLS 

30 DIM N$(30),P5(30):Ne=1 

40 PRINT”">¢(>0¢ KEY A DATE )¢)¢" 

30 PRINT 

60 PRINT'1) INSTRUCTIONS" 

70 PRINT"2) SEND DATA / RETRIEVE DATA" 
80 PRINT'"3) SEE A NUMBER / ADD A NAME" 
90 PRINT'4) DELETE A NAME" 
100 PRINT"'S) SEE ENTIRE LIST" 

110 PRINT"62 TERMINATE RUN" 
120 INPUT I 

180 ON I GOTO 140,460,690,910,1310,1600 
140 CLS 


1530 PRINT"'THE INSTRUCTIONS ARE QUITE 
STRAIGHT-" 


160 
170 
180 
190 
200 
210 
zZ220 
230 
240 
220 
Z260 
270 
Z80 
290 
300 
310 
320 
330 
340 
330 
360 
370 
380 
390 
400 
410 
420 
429 
430 
440 
4350 
460 
470 
480 
490 
5900 
910 
220 
930 
240 
990 
960 
970 
280 
990 
600 
610 
620 


PRINT" FORWARD AND SIMPLE ALMOST ALL" 
PRINT"OF US THAT ARE NOT MARRIED (AND" 
PRINT"SOME THAT ARE) CARRY AROUND A" 
PRINT'LITTLE BOOK. THIS LITTLE BOOK" 
PRINT" CONTAINS NAMES AND PHONE NUMBERS" 
PRINT"“OF PERSONS OF THE OPPOSITE SEX" 
PRINT'WITH WHOM YOU MIGHT WANT TO" 
PRINT"MAKE A DATE WITH. WELL NOW YOUR" 
PRINT“ COMPUTER 15 ABOUT TO RELIEVE YOU" 
PRINT"OF THE CHORE OF THUMBING THROUGH" 
PRINT"'THAT LITTLE BOOK AND GIVE ONLY" 
PRINT" YOU ACCESS TO ITS CONTENTS." 
PRINT: GOSUB 290:GOTO0320 

PRINT"'STRIKE A KEY" 

AS=INKEYS: IF X$=""" THEN 300 

CLS: RETURN 

PRINT" YOU WILL BE ALLOWED TO ENTER" 
PRINT"UP TO 30 NAMES AND PHONE NUMBERS" 
PRINT'OF THE PEOPLE THAT YOU CHOOSE." 
PRINT" ALONG WITH THIS YOU WILL ENTER" 
PRINT"A CODE NUMBER (5 DIGIT). THIS" 
PRINT" CODE WILL BE PROCESSED TQ TAPE" 
PRINT" ALONG WITH ALL THE OTHER DATA." 
PRINT"'WHEN YOU WANT TO RETRIEVE THE" 
PRINT"'DATA, YOU'LL NEED TO REMEMBER" 
PRINT" YOUR CODE. OR YOU'LL NEVER" 
PRINT"SEE THE DATA AGAIN !!!" 

' IF PROGRAM [5 LEFT AS-IS 

PRINT 

GOSUB 290 

GOTO 40 

' SEND / RETRIVE DATA 

CLS 

INPUT" SEND OR RETRIEVE (S/R)";, 5 

IF 4£5="S" THEN 320 

IF X$="R" THEN 5390 

PRINT: GOTO 480 

CLS 

PRINT" READY PLAYER (CIN RECORD)" 

INPUT" THEN KEY ENTER" ,X9$ 

PRINT #-1,CD:PRINT #-1,N 

FOR I=1 TO N 

PRINT #-1,N$C(1)2,P$C(1):NEXT 

CLS:GOTO 40 

' RETRIEVE DATA 

CLS 

PRINT" READY PLAYER (CIN PLAY)" 

INPUT" THEN ENTER CODE";C 
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630 INPUT #-1,CD 

640 IF €¢(>CD THEN NEW 

690 INPUT #-1,N 

660 FOR I=1 TON 

670 INPUT #-1,N5C(1),P$¢1I):NEKT 

680 CLS:GOTO 40 

690 ° ADD A NAME 

700 ‘ SEE A NUMBER 

710 CLS:GOTO 1100 

720 PRINT"**X ADD A NAME **" 

730 IF N¢{)d1 THEN 840 

740 PRINT" INPUT FULL NAME, THEN PHONE" 
730 PRINT"NUMBER. USE A - TO SEPARATE" 
760 PRINT" PARTS OF THE NUMBER " 

770 PRINT'"TO CANCEL, PRESS ‘ENTER' ONLY" 
780 PRINT" FOR A NAME " 

790 PRINT 

BOQ INPUT N§(N) 

B10 IF N§«Nd="" THEN PRINT: GOTO 855 

820 iNPUT PS$(N) 

830 N=N+1 

890 IF N-=31 THEN N=N-1:GOTO 870 

850 GOTO 7370 

8355 IF CD<¢>0 THEN 865 

860 IF N«)t THEN INPUT"S DIGIT CODE",;,CD 
8635 GOSUB 290:CLS:GOTO 40 

870 PRINT 

880 PRINT" YOU HAVE ENTERED THE LIMIT" 
890 PRINT" FOR THE PROGRAM,";N; "NAMES." 
900 PRINT: IF PR=0 GOTO 855 ELSE 865 

910 ‘ DELETE A NAME 

920 CLS: PRINT'** DELETE A NAME **" 

930 PRINT"TO DELETE A NAME AND NUMBER," 
940 PRINT" INPUT THE ENTIRE NAME OF THE" 
930 PRINT" PERSON, AS IT APPEARS IN THE" 
960 PRINT"FILE WHO IS THE PERSON YOU" 
970 INPUT"WANT TO REMOVE FROM LIST"; NS 
780 FOR I[I=1 TON 

990 IF N$S=N$(1I) THEN 1060 

1000 NEXT. PRINT 

1010 IF P=0 THEN 1040 
1020 PRINT N$;"“" REMOVED FROM FILE." 

1030 P=0:GOTO 300 

1040 PRINT N$;"“ COULD NOT BE LOCATED " 
1050 GOTO 1030 
1060 N$¢cITda"": P$CIoa"" 
1070 P=1:GOSUB 1460:IF N=0 Ne=1 
1080 PRINT:GOTO 1010 
1100 ‘ SEE A NAME? 
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1110 INPUT"SEE A NUMBER (Y/N)";X§& 

1120 IF X$="N" THEN CLS:GOTO 720 

1130 PRINT: IF N=i AND NS(N)s"" THEN 1550 
11940 PRINT" INPUT PERSON'S LAST NAME ONLY", 
1130 INPUT LS 

1160 Le=l 

1170 LE=LEN(NS(L)) 

1180 FOR i=LE TO 1 STEP-1:I1F I=0 THEN 1280 


1185 IF MIDS(N$C(L),1,1)=" " AND D=0 THEN 1420 
1190 NAS=MIDS(N$¢(L),1,1)+4NA5 
1200 NEXT 


1210 PRINT NAS ,; 

1220 INPUT" (Y/N)";,X$ 
1230 IF X$="¥" THEN 1260 
1240 IF xX$="N" THEN 1280 
12530 PRINT:GOTO 1210 


1260 PRINT" THE NUMBER: "J PS(L):NAS$=S"" 
1270 D=0:PRINT:GOSUB 290:GOTO 40 
1280 NAS$="";L=L41 


i290 IF L>=N THEN NS=L5;GOTO 1040 
1300 GOTO 1170 

1310 ‘ ENTIRE FILE 

1320 L=1:Az=1:CLS 

1330 PRINT"NAME / NUMBER" 

1340 PRINT NS(¢(L),PS(C(L) 

1390 L=L+1:A=A+l 

1360 IF L>=N THEN 1390 

1370 IF Ad=8 THEN Az=1:PRINT:GOSUB 290:L=L-1 
1380 GOTO 1340 

1390 PRINT 

1400 GOSUB 290 

1410 GOTO 49 

19420 ‘ RIGHT NAME 

19430 IF NAS<>L$ THEN 1280 

1440 D=1i1 

1430 GOTO 1190 

1460 ‘ RE-~SORT FILE 

1470 FOR I=t TO N 

1480 I[F N§$c¢I)="" THEN 1500 

1490 NEXT: RETURN 

1500 J=I+1 

1510 N$§¢(I)=N$(J):P$CIT)=P$ (J) 

1920 TsI+1:J=J+il 

1530 IF JYN THEN N=N-1: RETURN 
1540 GOTO 1510 

1850 '‘ NONE IN FILE 

1560 PR=1 

1570 PRINT'** NO NAMES IN FILE **" 
1580 GOTO 900 
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1600 ‘ TERMINATE 

1610 PRINT 

1620 PRINT"END OF PROGRAM" 
1630 END 


Variables and Strings 


NSD) - Names in the file 

P$(I) - Phone numbers in the file 

N - Counter, number in file 

X$ - General input string 

CD - 5 digit code number 

P - Either equal to 0 or 1 for deleting a name 

D - Either equal to 0 or 1 for searching for a particular name 
L & A - Counters for printing all names in the current list 
PR - Name not in file Gf equal to 1) 


Explanation of the Program Lines 


Line 20 clears 1200 bytes of memory for string storage. 

Line 30 dimensions the N§$ and P$, arrays for the names and 
phone numbers. 

Lines 40-120 display the command list. 

Line 130 sends control to the appropriate line depending on the 
value input for I. 

Lines 140-440 display the general instructions. 

Lines 460-680 either send data to the tape player or retrieve it 
from the tape player. If the program 1s left as-is the user must enter 
the 5 digit code that was placed on the tape in order to retrieve data. 
If the user fails to enter the correct code, C< >CD, the entire 
program in memory will be ‘dumped’. 

Lines 690-900 and Lines 1100-1300 let the user either see a 
phone number or add a name. With the program as-is, up to 30 
names and phone numbers can be entered. 

Lines 910-1080 allow the user to delete a name and number 
from the current file. 

Lines 1310-1410 display the entire file that is currently in 
memory. 

Lines 1420-1450 test for a correct name when the user wants to 
locate a certain number only last names are used. 

Lines 1460-1540 re-sorts the entire file when a name has been 
deleted. 

Lines 1550-1580 display a message if there are no names in the 
file. 

Lines 1600-1630 terminate the program. 
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Games That Span the Ages 


Squares is a game like checkers, but you can move in any direction 
you want. Challenge a friend or the computer. 

Hold Time allows you to stop the computer’s piece while you 
shoot it. It’s not that easy though: your lasers must be at the right 
location at the right moment. 

Dangerous Affair challenges even the best would-be spy by 
making you work with coded messages and incompetent agents. 

Pennies or Dollars offers you the chance to get rich quick or 
to become poor in just as short a time. 

Be Prepared (Part I) tests your dexterity and your luck. 
You'll need both to successfully dock your spaceship. 

Rain of Terror is a test of your courage. How long do you dare 
remain at the spot where the bomb will hit? 

Knights places you in medieval times. The king is depending 
on you to destroy the outlaws without killing their hostages. 
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SQUARES 


This program will give you all of the action that checkers never 
attempted to have! Without having to get “crowned” you can move 
wherever you wish on the playing board, just so long as you do it to 
win! If 4 people are playing, the victor of the first game can play the 
victor of the second game. Of course, you can play by yourself 
against the computer. 


Sample Run 
SEE INSTRUCTIONS? YES 


SQUARES 


HOW MANY TO PLAY (1-4)? 2 

JUST LIKE CHECKERS, YOU WILL MOVE 
FROM SQUARE TO SQUARE TRYING TO 
OUTWIT YOUR OPPONENT AND JUMP 
THEIR PIECE. BUT, UNLIKE CHECKERS, 
EACH WILL ONLY HAVE 5 PLAYING 
PIECES. YOU CAN MOVE FORWARD OR 
BACKWARD, AS IF ALL PIECES ARE 
KINGS. THE VICTOR WILL BE THE 
PLAYER WITH PLAYING PIECES 
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Y 


PRINT 
INSTRUCTIONS 


NUMBER OF 
PLAYERS 


: 
N 
INPUT INITIALS 
OF YY PLAYERS 
SET GRAPHICS 
PLAYING FIELD 
GET MOVE 
FROM PLAYER 


RESET PIECE 


SET PIECE 


GET 
JUMP MOVE 
Y OUTPUT 
MESSAGE 


Flowchart for Squares. 
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ia 
pt 
— 


REMAINING. TO THROW IN THE TOWEL 
(GIVE UP) JUST ENTER A 0 (ZERO) WHEN 
YOU ARE ASKED ‘FROM? 


PRESS ENTER? 


IF YOU ARE PLAYING BY YOURSELF, 


IF THREE ARE PLAYING, ONE WILL 
BE CHOSEN TO PLAY THE WINNER OF 


PLAY THE WINNER OF THE FOLLOWING 


GAME. REMEMBER, MOVE ONE SQUARE AT A 
TIME UNLESS YOU ARE JUMPING. 


PRESS ENTER TO START? 


| NEED THE INITIALS OF THE 2 
PLAYERS? AM 
2? Ad 


Program Listing 


10 REM PROGRAM TITLE: SQUARES 

20 CLS: RANDOM 

30 CLEAR $500 

40 DIM X(40),¥(4940),W(40) 

90 GQQ=-99 

60 FF=1 

70 INPUT"SEE INSTRUCTIONS (Y/N)",A5 

80 IF A$S="Y¥" OR AS="YES" THEN 120 

9O IF AS="N" OR AS="NO" THEN TN=1i1:GOTO 150 
100 PRINT"'TRY A SOLID ANSWER... " 

110 PRINT:GOTO 70 

120 PRINT CHR$(143) ;CHR$(143); 

130 PRINT" S @QUARE S&S ",CHR$§(143),; 

140 PRINT CHR§(143) 

150 PRINT 

160 PRINT"HOW MANY TO PLAY (1-4)",; 

170 INPUT YY 

180 IF YY¥¢i OR YY>)4 THEN 150 

190 IF Y¥=1 THEN GL=1 

Z00 REM INSTRUCTIONS NOT NEEDED 

210 IF TN=1 THEN PRINT:GOTO $510 

220 REM INSTRUCTIONS 

240 PRINT" JUST LIKE CHECKERS, YOU WILL MOVE" 
230 PRINT" FROM SQUARE TO SQUARE TRYING TO" 
260 PRINT"OUTWIT YOUR OPPONENT AND JUMP" 
270 PRINT"THEIR PIECE. BUT, UNLIKE CHECKERS," 
280 PRINT" EACH WILE ONLY HAVE 3 PLAYING" 
270 PRINT"'PIECES. YOU CAN MOVE FORWARD OR" 
300 PRINT" BACKWARD, AS IF ALL PIECES ARE" 
310 PRINT"KINGS. THE VICTOR WILL BE THE" 
3Z0 PRINT" PLAYER WITH PLAYING PIECES" 

330 PRINT" REMAINING TO THROW IN THE TOWEL" 
340 PRINT" (GIVE UP) JUST ENTER A QO 
(ZERO) WHEN" 
350 PRINT" YOU ARE ASKED ‘FROM ?'" 
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366 
370 
380 
390 
400 
410 
420 
430 
940 
450 
9460 
470 
480 
490 
900 
710 
920 
930 
940 
200 
960 
370 
280 
990 
600 
610 
720 
760 
770 
780 
730 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
710 
920 
930 
740 
770 
980 


PRINT 

INPUT" PRESS ENTER"; XX 

CLS 

PRINT" IF YOU ARE PLAYING BY YOURSELF," 
PRINT" YOU WILL PLAY AGAINST THE COMPUTER." 
PRINT" IF THREE ARE PLAYING, ONE WILL" 
PRINT’ BE CHOSEN TO PLAY THE WINNER OF" 
PRINT" THE FIRST ROUND.IF FOUR ARE PLAYING" 
PRINT" THE COMPUTER WILLCHOOSE OPPONENTS" 
PRINT" AND THE WINNER OF ONE GAME CAN' 
PRINT" PLAY THE WINNER OF THE FOLLOWING" 
PRINT'GAME.REMEMBER,MOVE ONESQUARE AT A" 
PRINT"TIME UNLESS YOU ARE JUMPING." 
PRINT 

INPUT" PRESS ENTER TO START"; XX 

CLS 

IF TN=1 AND YY=i1 THEN 540 

IF YY>1 GOTO 750 

AA=RND (2) 

IF AA=1 THEN RR=1:GOTO 570 

RR=3:GOTO 600 

PRINT" YOU WILL PLAY FIRST..." 

PRINT" YOU HAVE THE SOLID PIECES." 
PRINT:GOTO 610 

PRINT" I WILL PLAY FIRST..." 

PRINT: IF Z<¢>0 THEN 1395 

MZ=0 

PRINT"I NEED THE INITIALS OF THE";YY 
PRINT" PLAYERS";,:FOR TI=1 TO YY 

INPUT INSC(I):NEXT 

IF YY=1 THEN P$(1)=2IN$(1):GOTO 900 

IF YY=2 THEN 1200 

REM CHOOSE PLAYERS 

REM 3 OR 4 PLAYING 

A=1 

AA=RND(Y): IF AA=A THEN 840 

J=1:FOR I[=2 TO YY 

IF I=AA THEN 880 

ACJd=1:JaJe1 

NEXT 

ACJ)=A:A(J+1)=AA:GOTO 1200 

PRINT'WE WILL NOW BEGIN. REMEMBER" 
PRINT INS CYY);", YOU ARE PLAYING" 
PRINT" AGAINST ME, YOUR COMPUTER." 

GOSUB 10000:CLS 

GOTO 1400 

PRINT" THERE ARE THREE OF YOU PLAYING " 
PRINT" I WILL NOW CHOOSE TWO PEOPLE TQ" 
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990 PRINT'PLAY ONE ANOTHER. THE PERSON" 


1000 
1010 
1020 
1090 
1100 
i110 
1120 
1130 
i140 
1260 
1210 
1215 

1220 
1230 
1235 
i240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
13350 
1335 
1340 
1345 
1350 
1360 
1370 
1380 
1390 
1395 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
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PRINT" REMAINING WILL PLAY THE" 
PRINT'WINNER OF THE FIRST ROUND... " 
PRINT 

GOSUB 10000 PRINT 

PRINT P$¢i1)," YOU WILL PLAY AGAINST" 
PRINT P$(2);". AFTER THESE HAVE PLAYED" 
PRINT' YOU WILL PLAY THE WINNER ",; 
PRINT P$¢(3);," " 

GOTO 1310 

REM FOUR PLAYERS 

FOR I=1 TO YY 

IF YY¥=2 THEN PS$¢(I)=INSCI):GOTO 1230 
PS(IJSINSCACIDS 

NEXT IF YY=2 THEN 1310 

IF YY¥=3 THEN 9770 

PRINT P5¢(1);" YOU WILL PLAY “;P$(2> 
PRINT" IN THE FIRST ROUND. ";P$(¢3) 
PRINT"'WILL PLAY ";P$(4);" IN THE" 
PRiINT' SECOND FINALLY, THE WINNER" 
PRINT' FROM EACH SET CAN PLAY EACH" 
PRINT" OTHER." :GOSUB 10000 

PRINT 

REM 2 PLAYERS 

A=RND( 2) 

AA=A-1: IF AA=0 THEN AA=Z 

IF A=1 THEN 134% 
PS(1)=PS(AA):P$(2)=P5(A):GOTO 1350 
P$(1)=P$(A):P$(2)=P5(AA) 

RR=A:WE=YY 

PRINT PS$C(RR);" YOU WILL PLAY FIRST." 
PRINT" YOU HAVE THE ", 

IF RR=2 PRINT"STEPPED PIECES" :GOTO 1395 
PRINT" SOLID PIECES" 

GOSUB 10000:CLS 

REM PLAYING BOARD 

FOR X=10 TO 115 

SET(X,1):SETC(&%,2) 
SET(X,39):SET(X,40) :NEXT 

FOR X=3 TO 38 

SET(10,X):SET¢(11,X) 
SET(114,X):SET(115,X) :NEXT 
L=116:P=70:P1=P+128 

FOR T=1 TO 30 

PRINT@P,1; :P=P+10 

IF P>}=L THEN P=P1:Pi=P14128:L=L+128 
NEXT: TP=5:BP=53:REM PIECES 
K=11:J3J=33:Y=3:L=+Y¥+é6 


1330 FOR X=K TO J 

15340 SETCK,Y):SET(X,Y+1):SETCX,Y¥+2) 

1350 SET(X,Y+3):-SET(X,Y¥+4):SET(X,Y+5) 
1360 NEXT 

1570 Y=Y+12 

1380 IF Y>)=39 THEN 1600 

1390 GOTO 1330 

1600 K=X.J=K+19:Y=L:L=Y-6 

14610 IF Y=-3 THEN Y=-L 

1620 IF Y=-9 THEN Y=-(L/3)-2 

1630 IF Y=-15 THEN 1650 

1640 GOTO 1530 

1650 REM SET PIECES (TOP) 

1660 X=33:Y=7:J=2:M=4 

1670 FOR JT=X TO X+1i16 

1680 SETCI,Y):SET(1I+40,Y) 

1690 IF T=i THEN SET(1I+80,Y):M=10 

1700 NEXT: IF T=i THEN GOSUB 1900:GOTO 1720 
1710 GOSUB 1900: X=15:Y¥=13:T=1:GOTO 1670 
1720 REM SET PIECES (BOTTOM) 

1730 GOSUB 1960:X=35:Y=Y+i8:T=0:M=24 

1740 FOR I=K TO X+i6 STEP 2 

1790 SETC(I,Y):SET(1I1+40,Y) 

1760 IF T=1 THEN SETC(1+80,Y) :M=30 

1770 NEXT: IF T=1i THEN GOSUB 1900:GOTO 1790 
1780 GOSUB 1900: :X=15:Y=Y¥+6:T=1:GOTO 1740 
1790 REM SET START LOCATIONS 

1800 GOSUB 2030:J=2:FOR [I=2 TO 10 STEP 2 
1810 WC J)=1:WCJ410)05=-99: JaeJ+2: NEXT: J=22 
1820 FOR I=22 TO 30 STEP 2 

1830 W(J)=99:J=J+2:NEXT:GOTO 2100 

1840 GOSUB 10060:GOSUB 10080:PRINT@901,, 
1850 INPUT" FROM SQUARE";,F:IF F)30 THEN 1840 
1855 IF F=0 AND RR=2 THEN RR=1:GOTO 4100 
1856 IF F=0 AND RR=1 THEN RR=2:GOTO 4100 
1860 GOSUB 10060:GOSUB 10080:PRINT@900,; 
1870 INPUT" TO SQUARE';T: IF T>30 THEN 1860 
1880 RETURN 

1900 REM PIECE LOCATION 

1910 X(JI=HK:YCIJI=AY 

1920 J=J+2 

1930 IF J=M THEN 1910 

1940 IF J<¢=M AND Tz=1 THEN 1910 

1950 RETURN 

1960 REM PIECE LOCATION (MIDDLE)? 

1970 L=4:D=20:M=14 

1980 X¥(Jd=K4+D:Y(IJ0 =V¥4*L 

1990 J=J+2 
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2000 IF J=M THEN 1980 ELSE T=1:M=20 

2010 IF J<=sM THEN D=0:L=12:GOTO 1980 

2020 RETURN 

2030 REM LOCATION PLUS AMOUNTS 

2040 FOR I=8 TO 28 STEP 10:X¢(1I)=X¢(1I)+40 

2050 NEXT:FOR I=4 TO 24 STEP 10 

2060 X(1I)=X(1)+40:NEXT 

2070 FOR I[=10 TO 30 STEP 10 

2080 X(I)=XC(1)4+80:NEXT 

2090 RETURN 

2100 IF RR=3 THEN 2900 

2104 GOSUB 1840:IF RR=2 THEN 2400 

2105 IF W(F)=99 AND RR=1 THEN 4500 

2108 Q=99 

2110 IF W(T)<)-99 THEN 12000 

2120 IF ABS(F-T)=6 THEN MX=#1:GOTO 2145 

2130 IF ABS(F-T)=12 THEN MX=2:A=6:GOTO 2145 

2140 GOTO 2300 

2145 IF W(T)=1 THEN 12000 

2150 IF FCT THEN 2165 

2160 A=-A 

2165 IF MX=1 THEN 2190 

2170 IF MX=2 AND WC(F+A)=-99 THEN 12000 

2180 IF MX=4 AND WC(F+tA)=-99 THEN 12000 

2190 IF RR=2 OR RR=3 THEN J=2 ELSE J=1 

2200 FOR I=X(F) TO X(F)+16 STEP J 

2210 RESETCI,Y(F)):NEXT 

2220 FOR I=X(T) TO X(T)+16 STEP J 

2230 SETC(I,Y(T)):NEXT 

2235 IF RR=2 OR RR=3 THEN 2500 

2240 IF MX=2 OR MX=4 THEN 2270 

2250 W(T)=EWCF) WCF) =-99 

2260 GOTO 2280 

2270 WC T)=WCF) WCF) =-99 -WCF+A) =WC(F) .- GOTO 
2700 

2275 F=T:MX=0:KL=0:GOSUB 1860:ZC=1:GOTO 3120 

2280 REM ALTERNATE PLAYER 

2290 F=0:T=0:MX=0:A=0:Q=1 

2295 IF WE>=2 THEN RR=2:GOTO 2100 ELSE RR=3: 
GOTO 2100 

2300 IF ABS(F-T)=4 THEN MX=3:GOTO 2145 

2310 IF ABS(F~T)=8 THEN MX=4:A=4:GOTO 2145 

2320 GOTO 12000 

2400 REM OPPONENT (STEPPED SQUARES) 

2405 IF W(F)=1 AND RR=2 THEN 4500 

2410 IF W(T)¢(>-99 THEN 12000 

2420 IF ABS(F-T)=6 THEN MX=5:GOTO 2450 

2430 IF ABS(F-T)=4 THEN MX=6:GOTO 2450 
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2440 
2430 
2460 
29470 
2480 
2200 
2210 
29195 
2920 
2930 
2940 
2990 
2960 
2969 


2970 
2980 
29990 
2600 
2610 
2620 
2630 
2639 
2640 


2650 
2660 


2670 
zZ2700 
2710 
2720 
2720 
Z2730 
2740 
2790 
2760 
2770 
2900 
2905 
2910 
2920 
2930 
2939 
2? 40 


2750 


GOTO 25980 

IF WC(T)=99 THEN 12000 

IF F+T THEN 2190 

REM RESET SQUARE 

GOTO 2190 

REM INTERCHANGE SQUARES (STEPPED) 
WOT) =WCF) :WCF)=-99 

IF KK=1 THEN 2540 

IF MX=7 OR MX=8 THEN 2540 
KK=0:MX=0:A=0:RR=1:MM=0:GOTO 2100 
IF FCT THEN A=-A: IF KK=1 THEN 2960 
WCF+A) =-99 

GOTQ 2700 

IF KK=1 THEN F=T: IF RR=2 THEN GOSUB 
1860:Z2C=1:GOTO 3120 ELSE I=F:GOTO 2925 
GOTO 23530 

IF ABS(F-T)=8 THEN MX=7:GOTO 2610 


IF ABS(F-T)=12 THEN MXK=8:GOTO 2610 
GOTO 2100 

IF W(T)=99 THEN 12000 

IF MkK=? THEN A=-4:GOTO 2635 
A=-6:GOTO 2190 

IF RR=3 THEN 2190 

IF F< >16 AND FC()18 AND WCF+A)=-99 
THEN 2660 

GOTO 2190 


IF FtC>20 AND F022 AND WCF+A)D=-99 
THEN 12000 

GOTO 2190 

REM RESET SQUARE (JUMP) 

FOR [=X(F+A) TO X(F+A)0+16 

RESETC(CI,Y¢(F+A)) : NEXT 

WCF 3=-99 :-WCF+A) =W(F): GOTO 4000 

REM MORE JUMPS ? 

REM TEST FORWARD AREAS 

l=T:A=90 

IF RR=3 THEN MMe=1 

GOTO 29395 

GOSUB 10060:REM COMPUTERS PLAY 

MG=0 :MX=0:EE=0:Q=1:GOSUB 10080 

FOR I=2 TO 30 STEP 2 

IF WC(1I)=99 THEN 2935 

NEXT: GOTO 3800 

IF I1>=24 THEN 2950 

IF WCI+6)=Q AND WC I+12)=QQ THEN 
A=-12:GOTO 31900 

IF WCI+4)=Q AND WC(1I+8)=QQ THEN 
=-8:GOTO 3100 
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2999 
2960 


2970 


2973 
2980 
2990 
3000 
3100 
3103 
3110 
31ii 
3115 
3120 
3130 
3135 
3140 
3150 
3132 
3135 
3160 
3162 
31695 
3166 
3170 
3180 
9185 
3186 
3188 
3190 
3200 
3201 
9202 


3205 
3210 


3211 
32195 


3220 
3230 
3240 
3230 
3260 


3270 


3280 


150 


IF 
IF 


I¢=10 THEN 2975 
WCI-4)=2+Q AND WCI-8)=QQ THEN 


A=8:GOTO 3100 
IF WCI-6+/=Q AND WC(T-12)=QQ THEN 
A=1i2:GOTO 3100 


IF 
IF 


RR=1 THEN 2290 
RR=2 THEN 25330 


IF MM=1 THEN MM=0:GOTO 2530 
A=0:GOTO 3700 
REM MOVE FEASABLE 


IF 
IF 


RR=1 THEN KL=1:GOTO 3260 
RR=2 THEN KK=1:GOTO 3260 


IF MM=1 THEN KKei 
F=I:T=I-A:TT=T-A: IF TT¢=0 TT=0 


IF F=2 AND T=10 THEN 3400 

IF F=4 AND T=16 THEN 3400 

IF ZC=1 THEN 3150 

IF F=6 THEN 3250 

IF F=10 AND T=16 THEN 3400 

IF ZC=i THEN 3160 

IF F=i0 THEN 3260 

IF F=iz AND T=20 THEN 3400 

IF F=14 AND T=26 THEN 3400 

IF F=i4 AND T=6 THEN I1=1:GOTO 3400 
IF ZC=1 THEN 3185 

IF F=i4 THEN 3270 

IF F=16 THEN 3310 

IF F=l6 AND T=22 THEN 3400 

IF F=16 AND T=22 THEN 3400 

IF ZC=1 THEN 3200 

IF F=20 THEN 3280 

IF F=22 AND T=10 THEN 3400 

IF F=22 AND T=16 THEN 3400 

IF F=22 AND T=30 THEN 3400 

IF F=26 AND T=14 THEN 3400 

IF F=24 AND T=16 THEN 3400 

IF F=30 AND T=22 THEN 3400 

IF F=30 AND T=16 THEN 3400 ELSE IF ZC=1 
THEN 3500 

IF F=26 THEN 3290 

IF F=30 THEN 3300 

IF F=22 AND T=30 THEN 3400 ELSE 3500 
IF T=10 OR T=14 THEN 3400 ELSE 3500 
IF T=2 OR T=6 OR T=22 OR T=24 THEN 3400 
ELSE 3500 

IF T=6 OR T=26 THEN [1=1:GOTO 3400 
ELSE 3500 

IF T=12 OR T=16 OR T=26 THEN 3400 
ELSE 3500 


3290 
3300 
3310 
3320 
3400 
3410 
3420 
3430 
3440 
3900 
3510 
3915 
39520 
393929 
3530 
3700 
3710 
3719 
3720 
3730 
3740 
3730 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3830 
38395 
3860 
3870 
38795 
3880 
3890 
3900 
4000 
94010 
94020 
4030 
4040 
4090 
4060 
4070 
4080 


IF T=14 OR T=20 THEN 3400 ELSE 3500 
IF T=22 OR T=26 THEN 3400 ELSE 3500 
IF T=4 OR T=10 OR T=24 THEN 3400 
GOTO 3500 

REM WHICH TO WHERE 

IF RR=1 THEN 2290 

IF RR=2 THEN 2530 

IF [I=1 THEN [T1=0:GOTO 2530 

GOTO 3830 

REM CONT. JUMP 

IF RR=1i1 AND ZC=0 THEN 2275 

IF RR=i1 AND ZC=1 THEN ZC=0:GOTO 2108 
IF RR=2 AND ZC=0 THEN 2565 

IF RR=2 AND ZC=i1 THEN ZC=0:GOTO 2420 
IF RR=3 THEN 3700 

REM CHECK AHEAD / RE-TEST (COMPUTER) 
IF WCF-A)¢()>-99 AND KK=0 THEN 2930 
IF A=8 OR A=-8 THEN MG=1 

IF A=12 OR A=-12 THEN MG=1 

IF MG=1 THEN MG=0:KK=0:GOTO 2410 

IF I>=8 AND KK=0 AND EE=0 THEN 3780 
MX=MX+1 

IF MxX¢=1 THEN 2910 

GOTO 2410 

IF BP>)=4 AND W(TT)=1 THEN 2925 

GOTO 3750 

REM ALTERNATE MOVES 

AD=1:MM=2:FOR [=30 TO 2 STEP-2 

IF WCTI)=99 THEN EE=1:GOTO 38955 

IF KK=1 THEN 2410 ELSE NEXT 
RR=0:GOTO 4110 
KK=0:F=0:T=0:RR=1:A=0:GOTO 2100 

IF I¢=4 THEN 3875 

IF WCI-4)=QQ THEN A=4:GOTO 3100 

IF WC(1I-6)=QQ THEN A=6:GOTO 3100 

IF I>=26 THEN 3900 

IF WC 1I+4)=QQ THEN A=-4:GOTO 3100 

IF W(I+6)=QQ THEN A=-6:GOTO 3100 
GOTO 3830 

REM GAME COMPLETED ? 

IF RR=1 THEN 4040 

IF RR=2 OR RR=3 THEN 4070 

GOTO 2730 

BP=BP-1 

IF BP<¢=0 THEN 4100 

GOTO 2730 

TP=TP-1 

IF TP<=0 THEN 4100 
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4090 GOTO 2730 

4100 REM COMPLETE 

4110 GOSUB 10030 

4120 IF RR=2 THEN 4190 
4130 IF RR=3 THEN 4190 
4190 IF GL=1 THEN 4170 


4130 PRINT"YOU LOSE..... ",P$ (2) 

4160 PSC FF)=P$¢(1):GOTO 4210 

4170 PRINT"I HAVE LOST. ..":REM COMPUTER 
4180 GOTO 4210 

4190 PRINT" YOU HAVE LOST...";P$5(C(1) 


4200 PS(FF)=P$8(2) 

4210 REM CONTINUE / END 

4220 IF WE¢=2 THEN 4420 

4230 REM 3 OR 4 PLAYERS 

4290 WNSC(FF)=PS(FF): FF=FF+1 

4245 IF AG=! THEN 44106 

qZ50 IF FF=3 THEN 4400 

4260 IF WE=3 THEN P$(2)=P5(3):GOTO 4300 
9270 P$C1)=P$(3):P5(2)=P$5(49) 

4280 PRINT P§(1);" YOU WILL NOW PLAY ",P$(2) 
4290 GOTO 1310 

4300 PRINT PSC(FF);'" YOU WILL NOW PLAY "; 
4310 PRINT P$(1) 

4320 GOTO 1310 

4900 REM FINAL 

4405 IF WE=4 THEN 4450 

4410 PRINT WNSCFF-1);" IS THE GRAND WINNER !!" 
49420 PRINT 

4930 PRINT"END OF PROGRAM RUN..." 

4940 END 

49450 AQ=1:P$(1)=WNS$(1):P$(2)=WNS$ (2) 

4460 PRINT P$¢(1);" YOU WILL PLAY ",P$(2) 
449470 PRINT'TO DETERMINE THE FINAL WINNER." 
4980 GOTO 1310 

4300 REM NOT CORRECT PLAYER 

4310 GOSUB 10030 

94320 PRINT"IT IS NOT YOUR PLAY !!" 

4330 GOSUB 10050 

4390 GOTO 2100 

10000 REM TIME LOOP 

10010 FOR Q=i TO 53000:NEXT 

10020 RETURN 

10030 PRINT@901, ; 

10040 RETURN 

10050 FOR VY=i TO 1000:NEXT 

10060 PRINT@901,STRINGS$(50, 32) 

10070 IF T=0 RETURN 
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10080 
10085 
10090 
11000 
11005 
11010 
11020 
11030 
12000 
12010 
12020 
12030 


PRINT@965,""PLAYER...";P$(RR); 


IF RR=3 PRINT'COMPUTER"; 
RETURN 

GOSUB 10030 

IF ZC=t THEN 11030 
PRINT"** CANNOT RESPOND **" 
GOSUB 10050 

F=0:T=0: RETURN 

REM ERROR MESSAGE 

IF RR=3 THEN 2905 

GOSUB 11000 

GOTO 2104 


Variables and Strings 


X,Y & W - Subscripted for piece set and reset locations, and the 
contents of squares W(I) 

QQ - Used to test ahead to determine the status of a square. 

FF - Used for player, if more than one is playing 

YY - Number of players 

TN - Used to skip the instructions 

AA & A - Used for random selection of player’s turn 

RR - Used for player: RR=1is for solid pieces, and RR=2 is for 
stepped playing pieces 

IN$(D - Player’s initials 

P$ I) - Player’s initials, after random selection of first player 

WZ - Total number of players 

L,P & P1- Used for setting up the game board, along with X, Y,J & K 

F & T - For inputs of numbers of the squares to move from and to 

MX - Status of playing piece, to test if legal 

J - Used again for stepped pieces if RR=2 or RR=3 

KL & ZC - Used to determine if a jump 1s legal 

KK & ZC - Same as above for stepped pieces 

A - For movement of piece forward or backward 

EE, MG & AD - For alternate move (if possible) by computer 

TP - Number of squares at the top of the field 

BP - Number of squares at the bottom of the field 

GL - Computer playing 

WNS(FF) - Used if there are 3 or 4 players to determine the winner 

Q & U - For time loop (pause) 


Explanation of Program Lines 


Line 40 dimensions the X,Y, and W arrays for proper square 
and piece locations. 
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Line 50 sets the variable QQ to —99 for piece identification for 
a possible jump. 

Line 60 sets the variables FF to 1. FF is used to determine the 
final winner when there are more than 2 players. 

Lines 70-150 ask if instructions are needed. If they are not TN 
will equal 1 and the instructions will be skipped. 

Lines 160-190 ask for the number of player’s amount. If there is 
only 1, GL will equal 1, and the computer will play against the user. 

Lines 200-210 determine whether or not the instructions are 
needed. If they are not, the program branches to line 510. 

Lines 220-510 display the instructions for play 

Line 520 tests the value of YY (number of players). If YY is 
equal to 1, program branches to line 540. 

Line 530 sends program control to the appropriate lines for 2 or 
more players. 

Lines 540-600 determine who will play first, the user or the 
computer. 

Lines 610-780 let user enter each player’s initials. 

Lines 790-800 send program control to the appropriate lines if 
only 1 or 2 are playing. 

Lines 810-890 randomly select players (3 or 4) to determine 
who will play against whom. 

Lines 900-940 display a message for one player. 

Lines 970-1140 display a message indicating who will play 
against whom when 3 people are playing. 

Lines 1200-1300 display a message indicating who will play 
against whom when 4 people are playing. 

Lines 1310-1395 select who will play first and which type of 
playing piece he or she will have. 

Lines 1400-1830 set the graphics for the playing field (board) 
and all of the pieces. They determine the number of pieces and the 
value of each place: is assigned to the top pieces, 99 to the bottom 
pieces, and —99 to blanks. 

Lines 1840-1880, accept player inputs in response to the 
FROM and TO prompts. If FROM (F) is equal to 0 (zero), the player 
has just thrown in the towel, and the program will branch to either 
the termination routine or next player routine. 

Lines 1900-2090 establish the pieces and their locations on the 
playing board. 

Lines 2100-2270 along with lines 2300-2320 are used to move 
the solid pieces. 

Lines 2190-2240 are also used to move the stepped pieces. 
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Lines 2250-2270 are used to redefine the contents of the 
Squares that were involved in the FROM and TO movement. 

Line 2275 are used for a possible double (or more) jump. 

Lines 2280-2295 allow the next player or the computer to input 
moves if RR = 3. 

Lines 2400-2660 work much the same as lines 2100-2270 
above, except these are for the stepped pieces. 

Lines 2700-2725 reset any square that has been jumped and 
delete one piece from the player that was jumped. Lines 4000-4090 
are used to determine whether or not the game is over. 

Lines 2730-2770 are used to determine if another jump might 
be possible. For this the program branches to line 2935-3530. If any 
of the conditions are met, the user will be allowed another jump. 

Lines 2900-3530 are for the computer’s pieces as well. These 
lines will determine if the computer can jump or just move. If no 
jumps can be made, lines 3700-3900 are used for movement from 
one square to another. If none of the conditions are met following 
the for-next loop beginning at line 3810 and ending at line 3830, the 
computer will terminate the program at line 3340. 

Lines 4100-4480 determine who won and who will play against 
whom in the next game. If all conditions are met, the grand winner is 
printed and the program terminated. 

Lines 4500-4540 prints message if a player is trying to move 
someone's pieces other than his or her own. 

Lines 10000-12030 contain the necessary time loops, the turn 
determination routine, message CANNOT RESPOND if an illegal 
move is entered. 
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This game enables you to make all computer movement stop while 
you try and destroy the computer’s piece. All your decisions will 
have to be exact if you plan on doing this. To destroy the computer’s 
piece, your lasers must be at the right place at the right time. The 
amount of time you can hold the computer’s piece in one location 1s 
20 seconds. A long time you say? Run the program and see for 
yourself. Note that the IBM version of this program is included in 
Appendix A, and the Apple version in Appendix B. Remember to 
use the proper value for SS in line 295. Refer to page 3. 


Sample Run 


HOLD TIME... 
INSTRUCTIONS? YES 


HOLD TIME...A MATTER OF HIGH OR 
LOW POINT TOTALS. THE COMPUTER'S 
CRAFT WILL BLIP ALL AROUND YOUR 
VIDEO, DOWN THE LEFT AND RIGHT 
SIDES WILL BE ASTERISKS. THESE 
ARE YOUR LASERS. AT THE INSTANT 
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Xx XXX KX X KX XXKXXKXXXKXX 
HOLD TIME = 20 


<> 


*K OK OK OK OK 
K KK KK *K 


y% TOTAL POINTS: O TIME LAPSE: 30% 
XXX XXXXXXXXX KXKXXXXK XX 


YOU THINK THE CRAFT IS IN LINE 

WITH THESE, HIT THE ‘CLEAR’ KEY. 
YOUR LASERS WILL START MOVING 
TOWARD THE CENTER, THE COMPUTER 
CRAFT WILL ALSO CONTINUE TO MOVE 


PRESS ENTER? 


YOU CAN ‘HOLD’ THE COMPUTERS’ 

CRAFT FROM MOVING FOR AN AMOUNT 

OF TIME, ROUGHLY 20 SECONDS. 

YOUR SCORE WILL RANGE FROM 1500 TO 400, DEPEND- 
ING ON WHERE YOU 

DESTROY THE CRAFT (TOP OR BOTTOM 

OF THE VIDEO). THE TIME LIMIT FOR THE 

ENTIRE RUN WILL BE JUST ABOUT 

FIVE MINUTES. THIS WILL BE NOTED 

AT THE LOWER RIGHT OF YOUR VIDEO. 

THE COUNT STARTS AT 30. OH YES, TO ‘HOLD’ THE COM- 
PUTERS' 

CRAFT, HOLD DOWN THE ‘ENTER’ 


PRESS ENTER TO BEGIN? 
Program Listing 


100 REM PROGRAM TITLE: HOLD TIME 
110 CLS 
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115 CLEAR 350 

120 RANDOM 

125 PRINT"HOLD TIME..." 

130 INPUT" INSTRUCTIONS (Y¥/N)";Z$§ 

135 IF Z$="N" THEN CLS:GOTO 290 

140 PRINT 

1945 PRINT"HOLD TIME...A MATTER OF HIGH OR" 

130 PRINT"LOW POINT TOTALS. THE COMPUTER'S" 

195 PRINT"CRAFT WILL BLIP ALL AROUND YOUR" 

160 PRINT" VIDEO. DOWN THE LEFT AND RIGHT" 

165 PRINT"“SIDES WILL BE ASTERISKS. THESE" 

170 PRINT"ARE YOUR LASERS. AT THE INSTANT" 

175 PRINT'YOU THINK THE CRAFT IS IN LINE" 

180 PRINT"WITH THESE, HIT THE 'CLEAR' KEY." 

1835 PRINT"YOUR LASERS WILL START MOVING" 

190 PRINT" TOWARD THE CENTER. THE COMPUTER" 

195 PRINT"CRAFT WILL ALSO CONTINUE TO MOVE." 

200 INPUT" PRESS ENTER"; X$:CLS: PRINT 

209 PRINT" YOU CAN HOLD THE COMPUTER'S" 

210 PRINT"CRAFT FROM MOVING FOR AN AMOUNT" 

2153 PRINT"OF TIME, ROUGHLY 20 SECONDS." 

220 PRINT" YOUR SCORE WILE RANGE FROM 1500" 

229 PRINT'TO 400, DEPENDING ON WHERE YOu" 

230 PRINT" DESTROY THE CRAFT (TOP OR BOTTOM" 

235 PRINT"OF THE VIDEO). THE TIME LIMIT FOR 
THE" 

240 PRINT" ENTIRE RUN WILL BE JUST ABOUT" 

245 PRINT" FIVE MINUTES THIS WILL BE NOTED" 

230 PRINT" AT THE LOWER RIGHT OF YOUR VIDEO." 

2539 PRINT"THE COUNT STARTS AT 30." 

260 PRINT"'OH YES, TO HOLD THE COMPUTER'S" 

269 PRINT"'CRAFT, HOLD DOWN THE 'ENTER'" 

270 PRINT'KEY..... " 

275 INPUT" PRESS ENTER TO BEGIN";,X§:CLS 

290 REM CRAFT/SOUND LOCATION 

299 C$="(X0":S$5=31266 

300 REM OUTER GRAPHICS/POINTS 

305 QS=<STRING$ (63,42) :M=474 

310 G=0:PI=16:PRINT@O,Q$,;:PRINT@960,Q$; 

$19 PRINT@121,"20";:FOR X=64 TO 896 STEP 64 

320 PRINT@X,LEFTS$(Q$,1); 

3$9Z5 PRINT@X+63,LEFT$(Q$,1);:GOTO 460 

330 IF MM<>0 GOSUB 355:NEXT ELSE NEXT 

335 PRINT@O,CHR$ (30); :PRINT@960,CHR$(30) ; 

3940 FOR X=64 TO 896 STEP 64 

3495 PRINT@X,CHRS$ (32); : PRINT@X+63,CHR$ (32>); 

3530 GOSUB 355:NEXT:GOSUB 355:GOTO310 

$39 PRINT@9549,ABS(INTC(TT/60)-30); 
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336 
360 
369 
370 
373 


3680 
389 
390 
395 
400 
405 
410 
915 
420 
929 
430 
435 
440 
44995 
450 
43s 
460 
969 
470 
473 
480 
485 
490 
4993 
300 
909 
310 
915 
3Z0 
929 
330 
935 
240 
945 
990 
IOS 
960 
969 
370 
9793 
580 
985 
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PRINT@MM, STRINGS (9,32), 
PRINT@M,CS;:TT=TT+1 

IF TT>=1800 THEN 800 
MM=M:W=PEEK(144900) 

IF W=1 AND G¢=20 THEN G=G+.4:GOSUB 
7930: RETURN 

XX=RND(4):REM CRAFT MOVE 

ON XX GOTO 390,9400,410,420 

REM LEFT MOVE 

M=M-RND(5):GOTO 4495 

REM RIGHT MOVE 

M=M+RND(S):GOTO 445 

REM UP MOVE 

M=M-64:GOTO 4495 

REM DOWN MOVE 

M=M+64:IF PEEK(16258)=32 GOSUB 670 
IF PEEK(16303)=32 GOSUB 6706 

IF PEEK(15426)=32 GOSUB 670 

IF PEEK(153470)=32 GOSUB 670 

IF M<¢=66 THEN 420 

IF M>=950 THEN 410 

POKE SS,13:NN=USR(0) : RETURN 

REM FIRE 

IF X<¢=832 THEN W=PEEK(14400) 
PI=PI-i:IF W=0 THEN 330 

IF W=2 THEN 485 

GOTO 330 

REM LASER ADVANCE 

IF X>=896 OR X¢(=127 THEN 330 
H=X:H1=H+15360:H2=H1+63: UN=JN+1:52=100 
IF RP=1 PRINT@81,ABS(R-UN) ; 

POKE H1,32:POKE H2,32:POKE 5SS,52 
IF PEEK(H1+1)¢(>032 OR PEEK(H2-1)¢()32 THEN 535 
H1=H1+1:H2=H2-1:52=S52-1:NN=USR(0) 
POKE H1,42:POKE H2,42 

IF ABS(H2-153360-X)=0 THEN 850 
GOSUB 355:GOTO 305 

REM DIRECT HIT 

POKE H1,42:POKE 558,14 

IF PEEK(CHZ-1)¢()32 THEN 5365 

POKE H2Z,32:HZ=HZ-1 

POKE HZ,42 

NN=USR(0):GOTO 345 

REM DELETE 

Z=1:POKE Hi,32:POKE H2,32 
N=M+15360:51-220 

POKE N,32:POKE N+1,32 

POKE N+2,32 


990 J=RND(5)? 

99S IF N#J3+694¢=16319 THEN 605 

600 GOTO 625 

6053 POKE N+J+64,42:POKE N+J-64-J, 42 
610 FOR IT=1 TO J*10:NEXT 

615 POKE N+J+64,32:POKE N+J-64-J, 32 
620 GOTO 640 

625 POKE N¢+J-64,42:POKE N+J3-64-J,42 
630 FOR JIT= TO J*10:NEXT 

635 POKE N+J-64,32:POKE N+J-64-J,32 
640 IF Z¢=7 THEN 655 

643 POKE §S8S,255 :NN=USR(0) 

630 IF RP=0 GOTO 660 ELSE PI=PI1+1:GOTO 665 
6953 Z=Z+1:POKE SS,S1:NN=USR‘0):GOTO 5990 
660 PI=PI4+1:X$=X54"+" 

6653 PP=PP+PI*100:GOSUB 670:GOTO 850 
670 AS="TOTAL POINTS: ":T$="TIME LAPSE:" 
675 F=898 

680 FOR I=1 TO LEN(CA$5) 

685 PRINT@F+495 ,MID&(T$,1,1),; 

690 PRINT@F,MIDS¢(A$,1,1),; 

693 F=F+1:NEXT 

70Q PRINT PP;:I1F RP=1 THEN 710 

703 IF xs=""RETURN 

710 REM RESERVE POWER 

7135 RS$="RESERVE POWER: " 

720 F=66 

723 FOR [=i TO LENCRS) 

730 PRINT@F,MIDS(RS,1I,1); 

7353 F=F4+1:NEXT 

740 IF RP=1 THEN X$=STRS5(ABS(R-UN) ) 
7435 PRINT X$5,; 

790 TI$="HOLD TIME:":REM HOLD TIME 
755 IF PEEK(153470)¢(>32 THEN 770 

760 Fiil0:FOR I=1 TO LENC(TI5) 

765 PRINT@F ,MIDS(TI$,1,1);:F=2F+1:NEXT 
770 PRINT@120, INT(CABS(G-20)); 

773 RETURN 

780 REM TIME REMAINING 

7853 IF RP=1 THEN DKe1:GOTO 860 

790 IF TT>=1800 THEN 800 

793 GOTO 300 

§00 FOR TiI=1 TO 1200:NEXT 

805 CLS: R=LENCX$>) 

810 IF R=0 THEN 910 

815 PRINT"VERY WELL DONE...." 

820 PRINT" YOU HAVE ";R; "UNITS OF" 
8Z3 PRINT"RESERVE POWER... " 
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830 PRINT" PRESS ENTER TO USE", 
835 INPUT X$ :TT=0:RP=1:UN=0 
840 CLS 

845 GOTO 300 

850 REM UNITS DELETE (RESERVE) 
859 IF RP=0 THEN 330 

860 IF UN>=R THEN 875 

865 IF DK=0 THEN 330 

870 DK=0:GOTO 790 


873 REM FINISH 

880 FOR Tl=1i1 TO 1200:NEXT 

885 CLS 

690 PRINT" RESERVE POWER EXHAUSTED...." 
895 PRINT"TOTAL POINTS ACCUMULATED:";PP 
900 PRINT 

763 GOTO 936 

910 PRINT'YOU HAVE DESTROYED NOTHING." 
913 PRINT"YOU HAVE NO RESERVE POWER." 
9Z0 PRINT 

923 GOTO 895 

930 PRINT 

9353 PRINF"END OF RUN." 

990 END 


Variables and Strings 


C$ - Computer's craft 

SS - Sound location (machine routine) 

Q$ - Outer graphics, asterisks 

M,MM - Location of computer craft 

PI - Points, total times 100 

G - Hold time—holding of computer craft 

TT - Amount of playing time 

W - Key closure (PEEK) 

XX - Random craft movement 

NN - USR Call for sound output 

H - Location of asterisk when laser fired 

H1,H2 - Laser advanced toward center then outward 
$2 - Also for sound output 

UN - Reserve units used, not valid until RP=1 

RP - On reserve power 

Z - General, for flashing of destroyed craft 

N - Location of computer craft when destroyed 

J - Arandom amount used to flash asterisks above or below craft 
X$ - Reserve units, if user’s craft destroyed 
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PP - Total outstanding points 

F - Print @ locations, messages 
A$, T$,R$, & TI$ - Messages 

R - Reserve units, total 

DK - Finish of game 


Explanation of the Program Lines 


Line 115 clears 350 bytes of memory for string storage. 

Lines 125-275 display the instructions for playing. 

Line 295 sets C$ to the computer’s craft and initializes the 
variable SS for the sound routine. 

Lines 300-430 print the graphics near the edges of the screen 
and control the movement of the computer’s craft. The craft is 
moved a random amount distance, determined between lines 370 
and 415. Line 366 tests whether the enter key is being held and 
variable G is less than or equal to 20. Variable TT (line 362 is 
checked to see if the time has expired for the run. The peek 
statements in lines 415-418 are used for the print messages. If the 
computer's craft happens to blank out any letters of these messages, 
they will be reprinted as soon as possible. Lines 420 and 425 keep 
the computer’s craft within limits. 

Line 430 outputs a beep sound each time the craft moves. 

Lines 500-565 enable the user to fire the laser. Here the 
asterisks are moved toward the center of the video. If a hit is 
detected (line 545) the program branches to line 570. Line 565 
continues the movement of the computer’s craft, if the Enter key is 
not being held down. Line 560 tests the value of H2 for stopping the 
laser attack. 

Lines 570-676 and 685 detect or destroy the craft and flashes 
asterisks at its location. 

Line 680 tests whether or not user is on reserve power. 

Lines 690-695 increase the variable PI by 1 and then multiply 
that amount by 100 to determine your score (line 695). X$ in line 
690 is then increased by one + (plus sign) to indicate added units of 
reserve power. 

Lines 700-795 print messages and amounts. 

Lines 800-830 again test the value TT to determine whether or 
not the game is over. 

Lines 835-875 tells the user how many units of reserve power 
he or she has. (The player receives one unit for each computer craft 
destroyed). Then the user presses the enter key to begin using the 
reserve laser power. 
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Lines 900-920 test the amount of UN (reserve power) to see If 
it has all been used. 
Lines 925-990 display the final message and the total score. 
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PEF BS © 
ANORIELY, 


DANGEROUS AFFAIR 


All of your life you’ve wanted to be a spy, a double agent that would 
help his country in time of need. Here’s your chance. Through 
messages you will relay, the computer will test to see if you would 
actually make a good spy. Some of the messages will be straight 
while others will be coded. There are agents (besides you) that will 
accidently forget the message you’ve given them, so try to re- 
member each...very, very well. Remember to use the proper value 
for L in line 250. Refer to page 3. 


Sample Run 


>> DANGEROUS AFFAIR << 


SEE OUTLINE? MAYBE 
TRY A YES OR A NO ANSWER. 


SEE OUTLINE? YES 
SO YOU WANT TO BE A SPY AND YOU 
THINK YOU'D BE A GOOD ONE AT 
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THAT? THIS PROGRAM WILL SOON 
LET YOU KNOW. YOU MUST FOLLOW 
AND PASS ALONG ANY INSTRUCTIONS THAT 
WILL BE GIVEN TO YOU; SOME 

OF THEM WILL BE CODED, WHICH 
MEANS YOU'LL HAVE TO BREAK 

THE CODE BEFORE PASSING THE 
INFORMATION GIVEN. 

REMEMBER TO PASS INFORMATION 
EXACTLY AS IT IS GIVEN TO YOU 
(EXCEPT WHERE CODED), 

FIRST NAME? 005 


PASS THIS ALONG: 

WM.P 4 TA .TS NIAM OT OG 

WHAT WAS THAT MESSAGE? 005 
PLEASE REPEAT 


PASS THIS ALONG: 
NADES KCALB A NI TEG 


WHAT WAS THAT MESSAGE? 005 
| MISSED PART OF IT 


PASS THIS ALONG: 
ANSWER THE PHONE AT 4TH ST. 


WHAT WAS THAT MESSAGE? 005 
ANSWER A PHONE AT 4TH STREET 


PASS THIS ALONG: 
GO TO THE 12TH ST. BRIDGE 


WHAT WAS THAT MESSAGE? 005 
GO TO A BRIDGE AT 12TH STREET 


PASS THIS ALONG: 
NOITCES F/D ROF ELIF AERA TEG 


WHAT WAS THAT MESSAGE? 005 
SOMETHING ABOUT A NOTICE? 
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START 


PRINT INSTRUCTIONS 
INPUT N$(NAME) 


READ DATA/M=1 


N 
OUTPUT 
MESSAGE 


OUTPUT 
CODED 
MESSAGE 


<< 


CLOSING 
MESSAGE 


INPUT PAST 
MESSAGE 


Flowchart for Dangerous Affair. 
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AGENT 28 DID NOT RECEIVE 
MESSAGE # 5, WHAT WAS 

IT, 005? 

YOU TELL ME 

PASS THIS ALONG: 

MEET HARRY AT 1ST ST. BAR 


WHAT WAS THAT MESSAGE? 005 
MEET HARRY AT BAR 


PASS THIS ALONG: 
YRRAH FO ESOPSID 


WHAT WAS THAT MESSAGE? 005 
| FORGOT REPEAT O.K.? 


STOP 


This was not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: DANGEROUS AFFAIR 

20 RANDOM:CLS 

30 CLEAR 500:DIM M5(21) 

30 PRINT">> DANGEROUS AFFAIR <¢¢" 

60 PRINT 

70 INPUT"SEE OUTLINE" ; X§& 

80 IF X$="YES" THEN 120 

90 IF X$="NO" THEN PRINT:GOTO 240 

100 PRINT"TRY A YES OR A NO ANSWER." 

110 GOTO 60 

120 PRINT"SO YOU WANT TO BE A SPY AND YOU" 

130 PRINT"THINK YOU'D BE A GOOD ONE AT" 

140 PRINT" THAT? THIS PROGRAM WILL SOON" 

150 PRINT"LET YOU KNOW. YOU MUST FOLLOW" 

160 PRINT"AND PASS ALONG ANY INSTRUCTIONS 
THAT" 

170 PRINT"'WILL BE GIVEN TO YOU; SOME" 

180 PRINT"OF THEM WILL BE CODED, WHICH" 

190 PRINT"MEANS YOU'LL HAVE TO BREAK" 

200 PRINT"THE CODE BEFORE PASSING THE" 

210 PRINT" INFORMATION GIVEN." 

220 PRINT'REMEMBER TO PASS INFORMATION" 
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230 PRINT" EXACTLY AS IT IS GIVEN TO YOU" 
235 PRINT" (EXCEPT WHERE CODED) 

240 INPUT" FIRST NAME";NS$ 

230 CLS:M=1:L=31266 

260 REM GET MESSAGES (INFORMATION) 

Z70 FOR J=1 TO 20 

Z80 READ M$(C(I):NEXT 

290 DATA GO TO MAIN ST. AT 4 P.M. 

300 DATA GET IN A BLACK SEDAN 

310 DATA ANSWER THE PHONE AT 4TH ST. 
320 DATA GO TO THE 12TH ST BRIDGE 

3930 DATA GET AREA FILE FOR D/F SECTION 
340 DATA MEET HARRY AT 1ST ST. BAR 

330 DATA DISPOSE OF HARRY 

360 DATA GIVE THE D/F FILE TO INTER C 
370 DATA RETURN TO MAIN ST. AT 11 P.M. 
380 DATA GET IN BLUE/WHITE HARDTOP 

390 DATA RECEIVE CODED MESSAGE FROM DRIVER 
400 DATA GIVE MESSAGE TO RHONDA 

410 DATA DUMP HER THEN STEAL HER CAR 
420 DATA DRIVE IT TO 31ST ST EXIT 

430 DATA DESTROY THE CAR 

440 DATA GO TO LAST FLIGHT AIRPORT 

4530 DATA BOARD THE 3 A.M. FLIGHT 

460 DATA LEAVE PLANE AT LYTERA AIRPORT 
470 DATA GIVE CODED MESSAGE TO MAN AT GATE 
480 DATA RETURN TO PLANE AT 3 P.M. 

490 PRINT" PASS THIS ALONG:" 

300 FOR Y=1i TO 2 

910 CR=RND(3):I1F CR=3 THEN 590 

3920 NEXT: T=1:J=LEN(M$(M)) 

930 PRINT MIDS(M$(M),1,1); 

940 POKE L,ASC(MIDS(MS(M),1,1)0+4495 

9590 A=USR(0) 

360 I[=I+1 

2970 IF I>J THEN 700 

980 GOTO 530 

990 REM CODE IT 

600 FOR Ye=1 TO 2:CC=RND(2) 

610 NEXT 

620 IT=LEN(MS$(M)):J=1 

630 IF CC=2 THEN 690 

640 PRINT MIDS(MS(M),1,1),; 

650 POKE L,ASC(MIDS (M$ (M),1,1))+60 

660 A=USR(0) 

670 I=xI-i:IF I=0 THEN 700 

680 GOTO 630 

690 KS=STRS$ (CASC(MIDS(MS(M),1,1))? 
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6993 
700 
710 
720 
730 
740 
7350 
760 
770 
780 
790 
800 
810 
820 
830 
860 
870 
880 
890 
900 
910 
920 
930 
940 
930 
960 
1000 
1010 
1020 
1030 
1040 
1050 
1060 


1070 


1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


PRINT K$;:GOTO 650 

REM PAUSE 

IF CC=1 OR CC=2 THEN 800 
FOR W=1 TO 400:NEXT:CLS 
PRINT'WHAT WAS THAT MESSAGE 
INPUT M5 

IF M§<>MS5(M) THEN WM=WM+1 
M=M+1 

IF M=21 THEN 1000 

FOR W=1 TO 1000:NEXKT 
CLS:GOTO 850 

REM LONGER PAUSE 

FOR W=1 TO 2500:NEXT 
CR=0:CC=0:GOTO 720 

REM DID NOT RECEIVE OR FORGOTTEN 
IF M>=6 AND M¢=16 THEN 8&80 

GOTO 490 

Y=RND(2) 

IF Y=1 THEN 490 
Y=RND(M) : AG=RND(100) 
PRINT'AGENT";AG;"DID NOT RECEIVE" 


"UNS 


PRINT'MESSAGE @";,¥;,", WHAT WAS“ 
PRINT'IT ";N$5 
INPUT M$ 


IF MS$<oMS(Y) THEN WM=WM+1 
CLS:GOTO 490 

REM END 

IF WM>=10 THEN 1070 


PRINT" YOU'VE DONE ALRIGHT ";,NS 


PRINT" YOU NOW CAN BECOME A" 
PRINT" COMPUTER SPY, AND" 

PRINT" PASS MESSAGES... " 

GOTO 1130 

PRINT"GOOD GRIEF, TURKEY !! 1!" 
PRINT" YOU FAILED" ;,WM; "OF THE" ;M-1 
PRINT'MESSAGES GIVEN TO YOU." 
PRINT" TO YOU THIS WAS NOT A" 
PRINT"DANGEROUS AFFAIR; IT WAS" 
PRINT"A LOST MISSION !!t1!1" 

PRINT 

PRINT" END OF PROGRAM..." 

END 


Variables and Strings 
N§ - First name of user 


M$(D 


- Information messages 


M - Counter, messages given 
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L - Machine language address 

CR,CC - Used to code message 

J - Length of M$(M), which is the message if the message is not 
coded. 

If the message is coded, I is the Length of M$(M) 

M$ - User input of message 

WM - Wrong message entered 


Explanation of the Program Lines 


Line 30 clears 500 bytes of memory for string storage and 
dimensions M$. 

Lines 50-235 display the instructions, if they are required. 

Line 240 inputs the user’s first name. 

Line 250 clears the video and initializes the variables M and L. 

Lines 260-280 read the data elements into the M$ array. 

Line 490 begins the actual entries. 

Lines 500-510 branch to the message encoding routine if CR is 
equal to 3. 

Line 520 initializes the variables I and J. 

Lines 530-580 display the message in uncoded form and pro- 
duce a sound for each letter. 

Lines 590-695 output the messages in simple coded form (if 
CR =3). The message will be printed in one of two ways, depending 
on the value of CC. 

Lines 700-720 allow a pause before the video is cleared. A 
longer pause is allowed if message was printed in code. 

Lines 730-790 allow the user to pass the message he or she was 
just given. If the message is incorrect, the variable WM will be 
increased by 1. If all messages have been used (M = 21), the pro- 
gram branches to line 1000. 

Lines 850-960 further test the user’s memory by asking him to 
repeat earlier messages, if M>= 6, M<= 16, and Y (random is 
equal to 2. Again, if the response is incorrect, counter WM will be 
increased by 1. 

Lines 1000-1150 print a final message and terminate the pro- 
gram. 
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me 


PENNIES OR DOLLARS 


Now here is the opportunity you’ve been longing for: you can get 
rich, starting with only $50.00. Use your head when you make each 
loan or investment, and you'll be loaded with computer money. Fail, 
and you'll end up with less than you started with. You’ll be surprised 
at how fast time flies when the loans start getting paid back. And of 
course, there are loans that will be defaulted on and investments 
that will bomb and do nothing else; watch out for these. 


Sample Run 


$$$ PENNIES OR DOLLARS $$$ 


ALL YOU HAVE TO YOUR NAME IS 
$50.00 DOLLARS. BUT YOU 

HAVE COME UP WITH A SCHEME TO 

MAKE SOME GOOD MONEY. YOU HAVE 

DECIDED TO MAKE LOANS AND TO 

INVEST IN SOME PROJECTS. WHO- 

EVER YOU MAKE A LOAN TO WILL 

NATURALLY HAVE TO PAY IT BACK 

WITH INTEREST. AND WHATEVER 

YOU INVEST IN COULD MAKE YOU 
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D=D-iIV 
y [| O=0-V_ | 


D=D-LA 


Y 
LOAN RETURN 


Loss BROKE 
RETURN MESSAGE 


TOO RICH TO 
9E +07 CONTINUE 
N N Y MESSAGE 


Flowchart for Pennies or Dollars. 
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A MINT...IF YOU MAKE 
THE RIGHT INVESTMENTS. 


PRESS ENTER? 
YOUR INITIALS? D.C. 


D.C. YOU'LL HAVE TO BE CAREFUL 
HOW YOU LOAN MONEY 

OR HOW MUCH YOU INVEST. DON'T 
GET GREEDY, OR YOU’LL PROBABLY 
LOSE EVERYTHING. 


PRESS ENTER TO BEGIN YOUR VENTURE? 


Program Listing 


10 REM PROGRAM TITLE: 

20 REM PENNIES OR DOLLARS 

390 CLEAR 200:CLS:DiMN TA(20),LL(20) 

40 PRINT"$$8$ PENNIES OR DOLLARS $$$" 

20 PRINT 

60 INPUT" INSTRUCTIONS REQUIRED (Y/N)";X& 
70 D=50:DS="SSHHRE8R . #28" : RANDOM 

80 IF X$="N" THEN 220 

90 PRINT"ALL YOU HAVE TO YOUR NAME I8" 
95 PRINT USING D&;D; 

100 PRINT" DOLLARS. BUT YOU" 

110 PRINT"HAVE COME UP WITH A SCHEME TO" 
120 PRINT"MAKE SOME GOOD MONEY. YOU HAVE" 
130 PRINT'DECIDED TO MAKE LOANS AND TO" 
140 PRINT" INVEST IN SOME PROJECTS. WHO-" 
150 PRINT"EVER YOU MAKE A LOAN TO WILL" 
160 PRINT"NATURALLY HAVE TO PAY IT BACK" 
170 PRINT"WITH INTEREST. AND WHATEVER" 
180 PRINT" YOU INVEST IN COULD MAKE YOU" 
190 PRINT"A MINT...IF YOU MAKE" 
200 PRINT"THE RIGHT INVESTMENTS. " 
210 INPUT" PRESS ENTER"; X5:CLS 
220 INPUT"YOUR INITIALS" ;1& 
229 IF I$=s"" PRINT" PLEASE, ";:GOTO 220 
230 PRINT I$;" YOU'LL HAVE TO BE CAREFUL" 
Z40 PRINT"HOW YOU LOAN MONEY (AMOUNTS) '" 
250 PRINT"OR HOW MUCH YOU INVEST. DON'T" 
Z60 PRINT"GET GREEDY, OR YOU'LL PROBABLY" 
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270 
280 
z290 


300 
310 
3Z0 
325 
330 
340 
390 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
900 
910 
320 
230 
240 
2950 
960 
5365 
570 
580 
3990 
600 
610 
620 
630 
640 
645 
650 
660 
665 
670 
675 
680 


PRINT"LOSE EVERYTHING. " 


PRINT: DIM AI(100),AR(20),AL(¢20),LA(20) 
INPUT" PRESS ENTER TO BEGIN YOUR 


VENTURE" 


iX§ 


CLS: R=1:V=2=129:VV=0 
GOSUB 320:GOTO 710 
REM CHART 

IF ZT=1 THEN 540 


FOR X=0 


TO 127 


SET(X,4) :NEXT: T=1:ZT=1 


GOSUB 43 


0 


IF X<>4 THEN X=X+7 
FOR LT=1 TO LENCAS) 
PRINT TABCX) MIDSCAS,LT,1); 


X=X+1:NE 
I=] +1 


XT 


IF I=6é THEN 540 


GOTO 350 


ON I GOTO 440,460,4980,500,520 


AS$="ASSETS" 
X=4: RETURN 
AS="LOANS" 


RETURN 
A$="INVE 
RETURN 


STED" 


AS$="RETURNED" 


RETURN 


A$z="LOST" 


RETURN 
IF TH=-! 
TA(R) =D 
LL(R)D=L: 
IF GK-1 
IF M<¢)0 
X=V: lel: 
GOSUB 64 


THEN 380:REM AMOUNTS 


LACR)=LA 
OR IJ=1 
RETURN 
Iv=0 

+) 


THEN RETURN 


PRINT@X+1,USING DS;T; 


X=X+13:IF X>=959 THEN GOTO 1660 


I=I +1 


IF 155 RETURN 


GOTO 390 


REM AMOUNT FOR T 
ON I GOTO 660,670,680,690,700 


IF R=13 
T=TA(C(R): 
IF R=13 
T=LLC(R): 
T=AICR): 


AND M=14 THEN T=TA(R+1): RETURN 


RETURN 


AND Me14 THEN T=LL(R+1): RETURN 


RETURN 
RETURN 
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690 
700 
710 
715 
720 
721 
7295 
730 
740 
730 
7359 
760 
765 
770 
780 
790 
800 
810 
820 
830 
840 
$350 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
i090 
1100 
1110 
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T=AR(R) : RETURN 
T=ALC(R) : RETURN 
IF D<=6 AND PR=0 THEN 1150 
PRINT@960, "PRESS ENTER"; 
ZT=0: INPUT X$:IF GK=1 THEN 1680 
CLS: PR=0 
IF ZZ=1 GOSUB 1220 ELSE IF ZZ=2 GOSUB 1380 
REM LOAN/INVESTMENT 
I=RND(2 >) 
ON I GOTO 755,1430 
PRINT" YOUR ASSETS ARE NOW: ",; 
PRINT TAB(23) USING D$;D 
PRINT"'A LOAN FOR APPROVAL ",;1I$;":" 
L=INT(D-RND(10)):I1F D¢=5 THEN 2100 
IF L¢<=3 THEN 770 
PRINT" LOAN AMOUNT: ";,TAB(C 20, USING D$;L 
P$="%.#%" :-LA=L:GOSUB 1280 
PRINT“ PERIODIC RATE: "; 
PRINT TAB(Z25)USING PS$;PE 
PS="#8% .#%"' 
PRINT" ANNUAL RATE: ",; 
PRINT TAB(C24) USING P$;PE*12 
REM LENGTH OF PAYBACK (MONTHS) 
IF L>=1 AND L¢(=100 THEN PB=12 
IF L>=101 AND L¢=1000 THEN PB=24 
IF Ld>=1001 AND L¢=9000 THEN PB=36 
IF L>=9001 AND L¢=19000 THEN PB=48 
IF L>=19001 THEN PB=240 
REM AMT. BY PERCENT 
FC=L*¥PB/100:L=L+FC 
PRINT" FINANCE CHARGES: ",; 
PRINT TAB(20) USING D$;FC 
PRINT"TOTAL OF LOAN: "; 
PRINT TAB(2Z20)USING D$;L 
PRINT" PAYMENTS: "; 
PRINT TAB(Z20) USING D$;L/PB 
PRINT 
INPUT" APPROVE (Y/N)";,A$ 
IF A$S="Y" THEN 1040 
GOTO 721 
D=D-LA: IF HJ=1 THEN 1800 
CLS:IF HJ=0 THEN R=R+1:M=R:GOSUB 340 
M=R:R=1:TH=1 
GOSUB 320 
IF RCM THEN 1100 
GOTO 1120 
R=R+1:V=V+64 
GOTO 1070 


1120 REM PAYBACK 

1130 IF D¢«=6 THEN 1150 

1140 V=129:TH=0:GOTO 710 

1150 REM LOAN AMOUNT 

1160 FOR U=1 TO M 

1170 IF LL(U)<)0 THEN 1320 

1175 NEXT: PR=1 

1180 IF GK=1 RETURN ELSE GOTO 1140 

1190 D=D+LL(U) :AR=AR4+LL(U):GOSUB 2300 
1200 LL(U)=0:LACU)=0:L=0:IF GK=1 THEN 1220 
1205 R=R+1:GOSUB 550:GOSUB 1920 

1210 ZZ=1:GOTO 1140 

1220 PRINT: REM RETURNED 

1230 PRINT"LOAN #";RND(10000);"HAS BEEN" 
1240 PRINT"“PAID IN FULL. AMOUNT "; 

1245 PRINT USING D$;AR 

1250 PRINT"TOTAL ASSETS NOW:";USING D$;D 
1260 FOR W=1 TO 2000:NEXT 

1270 AR(R-1)=AR:AR=0:2Z2Z=0:CLS: RETURN 

1280 REM PERCENT 

1290 PE=1 

1300 PE=PE+RND(.9) 

1310 RETURN 

1320 REM AMT LOST 

1330 LK=RND(4) 

1340 IF LK=1 OR LK=4 THEN 1190 

1345 IF D-LA(CU)<=6 AND TF=0 THEN 1190 
1348 IF U=13 THEN U=14 

1350 D=D-LA(U) :AL=AL+LA(U) 

1360 LL(U)=0:LA(U)=0:L=0:IF GK=1 THEN 1380 
1365 R=R+1:GOSUB 550 

1370 ZZ=2:GOTO 1130 

1380 PRINT:REM LOST 

1390 PRINT"LOAN #";RND(10000);"HAS BEEN" 
1400 PRINT"DECLARED DEFAULT, SORRY.“ 

1410 PRINT"AMOUNT LOST:";USING DS$;AL 

1420 GOTO 1250 

1430 REM INVESTMENT 

1431 IF VV)=101 THEN GOSUB 2200:GOTO 750 
1432 IF Dt=15 OR R(=2 THEN I=1:GOTO 750 
1435 PRINT"A POSSIBLE INVESTMENT..." 

1440 IV=RND(5000):IF IV)D+5 THEN 1440 
1445 IF D-IV<=10 THEN I=1:1V=0:CLS:GOTO 750 
1450 PRINT"YOU CAN NOW MAKE AN INVESTMENT. " 
1455 IF HJ=1 THEN 1510 

1460 PRINT"IF AND WHEN IT PAYS OFF YOU" 
1470 PRINT"WILL RECEIVE A % FOR EVERY" 
1480 PRINT"LOAN YOU MAKE. IF IT DOES NOT" 
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1490 
1300 
1505 
1310 
1320 
1330 
1540 
1350 
1560 
15469 
12370 
1375 
1380 
1390 
1600 
1610 
1660 
1670 
1680 
1690 
1700 
i710 
1720 
1730 
1740 
1750 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
i910 
19193 
1920 
1925 
1930 
19740 
1950 
19595 
1960 
1965 
1970 
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PRINT"PAY OFF YOU WILL LOSE A %" 
PRINT'WITH EVERY LOAN YOU MAKE." 
PRINT" (PERCENT BASED ON CURRENT RATES)" 
PRINT" INVESTMENT #";RND(5S00) 

PRINT" AMOUNT NEEDED:";USING DS$;IV 
PRINT 

INPUT" INVEST (Y/N) ";A$ 

IF AgS="Y" THEN VV=VV+1:GOTO 1565 
CLS:TI=1:i1V=0:GOTO 750 

IF VV=101 THEN 1431 

D=D-IV 

AI(VV)=IV:HJ=!1 

TACR)=D:GOTO 1560 

REM RESET INVEST AMOUNTS 

AR=0: AL=0 

GOTO 1050 

REM RESET VARIABLES 
V=129:Xx2V:GKe1:GOTO 715 
CLS:D=TACR+i): FOR Uzi TO M 

IF LL¢U)¢)0 THEN 1710 

GOTO 1720 

GOSUB i160 

LL(U)=0:AR(CU) =0 
AL(U)=0:LA(U)=0:NEXKT 

R=1:GOSUB 550:GOSUB 1910 
GK=-0:TH=0:Rz=1i:M=0:GOTO 721 

REM INVESTMENT PER % 

IJ=1:FOR V=t TO M:LK=RND(6) 
PB=(AICU)D/PE)D/ 9 

IF AI(U)¢200 THEN 1850 

NEKT: IJ20:R=R+1:GOSUB 1910:GOTO 1390 
IF LK=t OR LK=3 OR LK=6 THEN 1880 
DeaD+PB:AR=PB:AR(R)2zAR 

GOSUB 2300:GOTO 1890 
D=D-PB:AL=PB:AL(R)ZAL 
TACR+1)=D:GOSUB 360 

GOTO 1840 

REM AMOUNT TO TRUST FUND 

IF TF¢d)0 PRINT"PROCESSING TRUST FUND. " 
TS="SSRHRE , FHF, HHS. EE" 

IF D>#25000 THEN 1940 

IF TF<¢)0 THEN 19535 ELSE RETURN 
TF=TF+#1i1000:D=D-1000: PMz=1 
TD=TD+i000:GOTO 1925 

TACR+#1)=D:I1IF PM=0 OR RF=1 RETURN 
PRINT" PROCESSED TO FUND ";USING T8;TD 
PRINT" TOTAL AMOUNT OF ",;,USING TS ;,TF 
PRINT" IS NOW IN A TRUST FUND" 


1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2300 
2310 
2320 
2330 
2340 
2390 
2360 
2370 
2380 
Z2390 
2400 
2410 
2420 


PRINT" FOR YOUR USE ",;,16;"." 

FOR Wz1 TO 1000:NEXT: PM=0:TD=s0:RETURN 
REM BUSTED 

PRINT: D&S="S5S8 #4" 

PRINT"'SORRY, YOUR LOANS OR INVESTMENTS" 
PRINT" DID NOT PAY OFF FOR YOU ",;,1I8 
PRINT" YOUR TOTAL ASSETS ARE TOO LOW" 
PRINT"TO CONTINUE ("; 

PRINT USING D$;D;:PRINT"), SORRY." 
PRINT: PRINT" TERMINATION OF RUN..." 
END 

REM TRUST FUND RETURN 


IF TF<«()0 THEN 2130 

GOTO 2000 

De D+TF:TF=0:RF21:GOSUB 1920 

PRINT 

PRINT" AN AMOUNT OF ";,USING D&;D 
PRINT"IS NOW YOUR TOTAL ASSETS," 
PRINT" DRAWN FROM THE TRUST FUND." 
GOSUB 1965 


TACR) 2D: RF=0:GOTO 715 

REM NO MORE INVESTMENTS 

PRINT 

PRINT"NO MORE INVESTMENTS CAN BE" 
PRINT"MADE NOW ";1$;" SORRY. " 

FOR W=1 TO 2000:NEXT 

I=1:RETURN 

REM ASSETS ENOUGH TO RETIRE 

IF Dd)=9E+07 THEN 2330 

RETURN 

PRINT: IF TS=""" THEN 2410 

PRINT" YOUR TOTAL ASSETS ARE NOW ENOUGH" 
PRINT" FOR YOU TO RETIRE “,1$;"." 

PRINT" YOU HAVE A GRAND TOTAL OF "; 
PRINT USING T$;D 

PRINT 

PRINT"THIS PROGRAM MUST BE TERMINATED." 
PRINT: GOTO 2070 

TSH="SSHHHH , HHH, HER. FH" 

GOTO 2340 


Variables and Strings 


TA(N) - Total assets 
LL(N) - Loans approved 
AI(N) - Amount invested 


AR(N) - Amount returned from the loan or investment 
ALUN) - Amount lost 
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LA(N) - Loan amount not including interest 

D - Dollar amount for TA(N) 

D$ & T§$ - For printing amounts 

I$ - User’s initials 

R & M - For total amount of assets, loans, and returns 

These variables go no higher than 13 

W - For Print @ areas 

VV - For total investments up to 100 (AI(N) 

TH - For print of amounts only 

GK & JJ - For return of GOSUB, after amounts have been adjusted 

M - For a total of R, print of amounts up to M 

IV - Random investment amount 

X - For Print @ locations of amounts 

ZZ - For messages 

LA - Loan amount before interest is tacked on 

L - Total loan amount 

PE - Interest rates 

PB - Payback in months 

LK - Random number selector for return or loss of loan or invest- 
ment 

TF - Trust fund 


Explanation of the Program Lines 


Lines 60-270 display the instructions, if needed, and asks for 
the user’s initials. 

Line 300 initializes 3 variables. 

Lines 300-700 prints the current chart, which shows the user’s 
total assets, loans, returns, etc. 

Line 710 branches to line 1150 for a loan return if D (amount in 
assets) 1s less than or equal to $6.00. 

Line 720 branches to line 1680 for all loan returns if video has 
been filled (R=13). At this point, some borrowers could default on 
their loans. 

Line 725 branches to the appropriate print messages for loans 
returned (ZZ=1) or loans lost (ZZ= 2). 

Lines 730-1010 selects and prints a loan amount to be approved 
or disapproved If [=1. If I= 2, an investment opportunity 1s offered 
(line 1430). 

Lines 1040-1110, deduct the amount of the loan from the user’s 
total assets and chart the returns. 

Lines 1120-1210 control the repayment of a loan if LK is equal 
to 1 or 4. If it is not (LK= 2 or LK= 3), the loan will be declared 
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default. Only the principal of the loan will be lost at this point (lines 
1335-1420). 

Lines 1280-1310 select a random percent for the finance 
charges. 

Lines 1430-1580 select an investment amount (random) if 
counter VV (total investments) is less than or equal to 100. This 
investment amount (if approved) will be deducted from the user’s 
total assets, and HJ will then be equal to 1. Each time a loan is made 
(and HJ=1), all investments from 1 to M (total loans) will either 
bring a return or a loss, depending on a random integer, LK in lines 
1800-1900. 

Lines 1910-1990 place an amount in a trust fund for future use if 
D (total assets) is greater than or equal to 25E+ 03. 

Lines 2000-2080 terminate the program if all loans have been 
returned, the trust fund is all used, and D< = 5 ($5.00). 

Lines 2100-2190 withdraw an amount from the trust fund and 
adds it to the total assets when needed. 

Lines 2200-2250 display a message that no more investments 
can be made (VV>=101). 

Lines 2300-2420 terminate the program if D is greater than or 
equal to 9E+07. 
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BE PREPARED (PART 1) 


Where is part II you say? Some things must be left for the future, 
and besides, if you’re reading this, you haven’t made it through part I 
yet! At any rate, you are located somewhere in outer space. There 
are four tubes you must propel your vessels into. Your vessels will 
move continuously. You will use numeral keys to propel them into 
these tubes. The first numeral keys that will correctly propel the 
vessel will be 1 and 2. Each time the vessel makes a cycle (left to 
right and back to the left) the computer will increase the highest 
numeral you must press by 1 (i.e., 1—2,1—3, 1—4, etc., up to 1—9). 
This means that you will have to guess which numeral will propel 
the vessel into the tube. Only the right one will do the trick. Refer to 
pages 1-3 for information on the sound routine. Note that the IBM 
version of this program is included in Appendix A, and the Apple 
version in Appendix B. 


Sample Run 


BE PREPARED (PART 1) 

IF YOU HAVEN’T DONE SO, READ AND 
FOLLOW ALL INSTRUCTIONS FOR PLAY. 
YOU MUST UNDERSTAND EVERYTHING. 
INSTRUCTIONS? YES 


THIS GAME TAKES 
PLACE IN A DISTANT OUTER SPACE 
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START 


<> 


Y 


PRINT 
INSTRUCTIONS 


SET 
VARIABLES 


SET GRAPHICS 
FOR PORTS 


MOVEMENT OF 
VESSEL 


MOVE VESSEL 
RIGHT 


~< 


VL=VL+1 


Y 


MOVE VESSEL 
LEFT 


MESSAGE OUT 
OF FUEL/ 
DESTROYED 


i rr a rere 


| FINAL | ( ) 
N > Y MESSAGE STOP 


Flowchart for Be Prepared (Part 1). 


5 Y ~ DOCKED _ 
DESTROYED 


183 


FUEL REMAINING: 21 TONS 


LOCATION. WHAT YOU WILL SEE IS 

FOUR TUBES; THE TOPS ARE CLOSED 
WHILE THE BOTTOMS OPEN FOR ENTRY. 
WILL BE LOCATED AT 

THE BOTTOM OF THE TUBES, IN THE 

FORM OF AN ASTERISK. IT WILL BE MOVED 
CONTINUOUSLY FROM 

LEFT TO RIGHT. NUMERAL KEYS 

1-2 WILL PROPEL YOUR CRAFT 

INSIDE A TUBE, BUT YOU MUST 


PRESS ENTER? 


DECIDE WHICH KEY WILL DO THE 
JOB. ONLY ONE NUMERAL WILL 
WORK, AND THE COMPUTER WILL 
INCREASE THE MAXIMUM VALUE WITH EACH 
CYCLE. 1.E., 1-3, 1-4, ETC. YOU HAVE 
20 VESSELS TO DOCK, ONE OTHER 
THING THAT CAN STOP YOU IS THE 
AMOUNT OF FUEL REMAINING (PER 
VESSEL. ONLY IF YOU UNDERSTAND 
ALL INSTRUCTIONS, PRESS ENTER TO 
DOCK THE FIRST VESSEL? 


Program Listing 


10 REM PROGRAM TITLE: BE PREPARED (PART I) 


20 CLS: RANDOM 
30 PRINT"BE PREPARED (PART 1!) 
40 PRINT 


$0 PRINT" IF YOU HAVEN'T DONE SO, READ AND" 
60 PRINT" FOLLOW ALL INSTRUCTIONS FOR PLAY.” 


70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
170 
Z00 
210 
220 
230 
240 
290 
260 
270 
280 
290 
300 
310 


320 
330 
340 
320 
360 
370 
380 
390 
400 
410 
420 
430 
9440 
430 
460 
470 
480 
490 
200 
210 
920 
930 


PRINT" YOU MUST UNDERSTAND EVERYTHING. " 
PRINT 

INPUT" INSTRUCTIONS" ;Q$ 

IF MID$¢(Q@Q@$,2,1)¢>"E" THEN 400 

PRINT 

PRINT" THIS GAME TAKES" 

PRINT" PLACE IN A DISTANT OUTER SPACE" 
PRINT" LOCATION. WHAT YOU WILL SEE IS" 
PRINT" FOUR TUBES; THE TOPS ARE CLOSED" 
PRINT"WHILE THE BOTTOMS WILL BE OPENED" 
PRINT" FOR ENTRY.“ 

PRINT" YOUR VESSEL WILL BE LOCATED AT" 
PRINT"'THE BOTTOM OF THE TUBES, IN THE" 
PRINT" FORM OF AN ASTERISK. IT WILL MOVE" 
PRINT" CONTINIOUSLY FROM'" 

PRINT"'LEFT TO RIGHT. NUMERAL KEYS" 
PRINT"'1-—-2 WILL PROPEL YOUR CRAFT" 
PRINT" INSIDE A TUBE, BUT YOU MUST" 
PRINT 

INPUT" KEY ENTER"; X 

CLS 

PRINT" DECIDE WHICH KEY WILL DO THE" 
PRINT" JOB. ONLY ONE NUMERAL WILL” 
PRINT'WORK, AND THE COMPUTER WILL" 
PRINT" INCREASE THE MAXIMUM VALUE 

WITH EACH" 

PRINT"CYCLE I_.E.,1-3, 1-4, ETC. YOU HAVE" 
PRINT"20 VESSELS TO DOCK. ONE OTHER" 
PRINT" THING THAT CAN STOP YOU IS THE" 
PRINT" AMOUNT OF FUEL REMAINING (PER" 
PRINT" VESSEL). ONLY IF YOU UNDERSTAND" 
PRINT"ALL INSTRUCTIONS, PRESS ENTER" 
PRINT"'TO DOCK THE FIRST VESSEL"; 

INPUT X 

CLS 

REM VESSELS / BEGIN VALUE 
V=20:DS=0:DK=90: VL=2 

REM TUBES 

X¥=8:Y=26 

FOR T=Y TO OQ STEP-1t1 
SET(X,T):SET(X+5,T) : NEXT 

FOR T=X TO X+85 

SET(T,0):NEXT 

REM DO FOUR 

X=X+31 

IF X=Y¥*5+2 THEN 5330 

GOTO 4$50 

REM BOTTOM OF PORTS 
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3940 W=0:X=8 

550 FOR T=W TO X 

560 SET(T,Y):NEXT: IF P=1 THEN 600 
5370 W=X+6:X=X+31 

580 IF W=107 THEN X=127:P=1 

590 GOTO 550 

600 REM FUEL 

610 F=200 

620 F$="FUEL REMAINING: " 

630 X=980 

640 FOR I=1 TO LEN(F$) 

650 PRINT@X,MID$(FS$,1,1); 

660 X=X+1:GOSUB 1500 

670 NEXT: IF G=1 RETURN 

680 Q=X+1 

690 PRINTG@Q,F; 

700 REM START LOCAL 

710 L=640:V$="%*":ZX¥=255:PKe=l 
720 M=L+63:P=RND(VL) :R=0 

730 PRINT@L,V$; 

740 REM BY INKEYS 

750 XS=INKEY$ 

760 IF VAL(X$)=P THEN 900 

770 FOR T=1i TO 5:NEXT 

780 PRINT@L," "; 

790 IF R=1 THEN 810 

800 L=Lh+1:GOTO 340 

810 L=L-1 

820 IF Lt=M THEN 720 

830 GOTO 850 

840 IF L>=M THEN M=L-63:R=1:VL=VL+1 
650 F=F-1:IF VL)>=9 THEN VL=9? 
860 IF F<(=0 THEN 1200 

870 PRINT@Q,F; :PRINT@Q+5, "TONS"; 
880 IF INT(F/10)=F/10 THEN 1540 
8685 IF F(=10 THEN 1540 

890 GOTO 730 

900 REM PORT? 

910 J=1:ZX=50:PK=0 

920 PRINT@L," "; 

930 L=L-64 

940 PRINT@L,V$S; 

950 J=J+1:GOTO 1540 

960 IF PEEK(L+15360-64)()32 THEN 990 
970 GOTO 920 

990 IF J<=2 THEN 1030 


1000 F$S=" VESSEL DOCKED SAFELY " 
1010 G=1:GOSUB 630 
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1020 
1030 
1040 
10350 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1200 
1210 
1220 
1230 
1240 
1230 
1300 
1310 
1320 
1330 
1340 
1350 
1355 
1360 
1370 
1380 
13895 
1390 
1400 
1410 
1420 
1300 
1310 
1520 
1530 
1340 
1550 
1560 
1370 
1580 
1390 
1600 
1610 
1620 


DK=DK+1:GOTO 1070 

FS="V ES S E L DEs TROY E QD" 
FOR T=1 TO $00:NEXT: PRINT@L," "; 
G=1:X=975:GOSUB 640 

DS=DS+1 

GOSUB 1600 
FS=STRING$(32,32):X=975 

GOSUB 640 

V=V-1:G=0 

IF V¢=0 THEN 1300- 

VL=VL+1 

IF VL>=9 THEN VL=?9? 

GOTO 600 

REM FUEL EXHAUSTED 

Fs="F U E L EX H AU §& T E D" 
Gel: X=975 

GOSUB 640 

FOR T=1 TO $00:NEXT 

GOTO 1030 

REM ALL VESSELS IN 

G=1:XxX=0 

Fs="A L L VES SEL S&S I N" 
X=975:GOSUB 640:GOSUB 1600:X=xx:CLS 
FS="YOU HAVE DOCKED" 

GOSUB 640:PRINT DK; :F$="VESSELS" 
X=X+4 

GOSUB 640: X=XX+64:XX=XX+64 
Fs="YOU HAVE DESTROYED" 

GOSUB 640:PRINT DS;:FS$S="VESSELS" 
X=X+3 

GOSUB 640: X=XX+64:XX=XX+64 
FS="END OF MISSION..." 

GOSUB 640 

END 

REM SOUND ROUTINE 

POKE 31266,ASC(MIDS(FS$,1,1))+410 
Z=USR(0) 

RETURN 

REM MORE SOUND 

POKE 31266,2Z2X%:Z=USR(0) 

IF PK=1 THEN 1580 

GOTO 960 

IF F¢c=100 THEN Zk=ZXK~10 

GOTO 890 

REM FOR MESSAGE LOOP 

FOR T=1 TO 1200:NEXT 

RETURN 
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Variables and Strings 


V - Number of vessels 

DS - Vessels destroyed (counter) 

DK - Vessels docked (counter) 

VL - The beginning value for a random number between 1 and 2. 
This value will increase up to 9 in increments of 1 for each cycle 
(cycle: left to right then back to left) and each time a craft is 
safely docked X,Y, and W — For graphics of tubes (docks) 

F - Fuel amount 

F$ - Contents of different messages, depending on area of flow 

X - Used again for Print @ locations of messages 

Q - Print @ area of F (fuel) 

G - Simple 0/1 true/false variable for messages 

L - Start location of vessel 

V$ - Vessel (asterisk) 

ZX - Used in conjunction with sound output 

PK - For GOTO line definition 

M - Limit of L for asterisk movement 

P - Random selection of VL 

K - For left (R = 0) or right (R=1) movement of vessel 

J - To note if vessel has docked safely (J>= 3) 

Z - For USR call of sound routine 


Explanation of the Program Lines 


Lines 10-400 display the general playing instructions. 

Line 420 initializes several of the variables. 

Lines 430-590 display the graphics for the tubes (ports) in 
which each vessel must dock. 

Lines 600-620 set the amount of fuel and one of the messages 
for F$. 

Lines 630-690 print the different messages in F$. If G is equal 
to 1, lines 630 or 640 through lines 630-670 are being used as from 
another part of the program. 

Lines 700-890 form the main part of the program. Movement of 
the asterisks will continue left to right and then right to left until the 
VAL of X$ is equal to P, or all of the fuel is exhausted. 

Lines 900-970 move the vessel upward until the condition at 
960 1s met. 

Line 990 tests the value of J. If it is less than or equal to 2 the 
vessel 1s considered destroyed. 

Lines 1000-1250 print the appropriate message indicating the 
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Status of the vessel, advance the counters, and continue the program 
if V>=1. 

Lines 1300-1420 display messages indicating the number of 
vessels docked and/or destroyed and then terminate the program. 

Lines 1500-1590 is the routine for the sound output used when 
the status messages are displayed. 

Lines 1600-1620 form a time loop (pause) between appropriate 
messages. 
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MOVE RIGHT. _-NO- MOVE LEFT 


RAIN GF TERROR 


From the sky bombs will fall on your exact location. You will 
use the left and right arrow keys to move out of the path of destruc- 
tion, but you will have to be fast! Keep an eye on the POINTS 
BEFORE HIT message to obtain the highest score before termina- 
tion. Your score depends on when you move out of the path of the 
bomb. The longer you wait, the higher your score. Remember to 
use the proper value for SL in line 30. Refer to page 3. Note that the 
IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


#*#RAIN OF TERROR=+« 
INSTRUCTIONS (Y/N)? YES 


YOU WILL BE BOMBARDED FROM THE 
SKY, BY FALLING BOMBS. ALL YOU 
NEED DO TO STAY ALIVE IS TO 

USE THE LEFT ARROW AND THE 
RIGHT ARROW KEYS TO GET 

OUT OF THE WAY. 

IT SOUNDS VERY 

SIMPLE, BUT YOU MUST BE FAST! 


PRESS A KEY TO BEGIN 
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START 


INSTRUCTIONS 


MOVEMENT OF 
BOMB + SIGN 


MOVE MARK 
Y AS PER KEY | 


DESTROYED 


CLOSING 
MESSAGE 


Flowchart for Rain of Terror. 
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Program Listing 


10 REM PROGRAM TITLE: RAIN OF TERROR 

20 CLEAR 200: RANDOM 

30 CLS: PRINT: SL=31266 

40 PRINT"**®*® RAIN OF TERROR X®**" 

30 PRINT: X$=STRINGS (63,32) 

60 INPUT" INSTRUCTIONS (Y/N)";,A5 

70 IF A$S="N" THEN 190 

80 PRINT"YOU WILL BE BOMBARDED FROM THE" 
90 PRINT'SKY, BY FALLING BOMBS. ALL YOU" 
100 PRINT"NEED DO TO STAY ALIVE IS TO" 

110 PRINT"USE THE LEFT ARROW AND THE" 

120 PRINT"RIGHT ARROW KEYS, TO GET" 

130 PRINT"OUT FROM UNDER THE FALLING BOMBS." 
140 PRINT" IT ALL SOUNDS VERY" 

130 PRINT"SIMPLE, BUT YOU MUST BE FAST !!" 
160 PRINT 

170 PRINT" PRESS A KEY TO BEGIN" 

180 AS=INKEYS:IF A$S="" THEN 180 

190 CLS 
200 REM BORDER / MESSAGES 
210 PRINT@O,STRINGS (63,191), 
220 I$=CHRS(143):GOSUB 310 
230 R=0:REM POINTS 
2940 P=64°PP=P+62:U=P+896:UV=U: UW=U+61:RR=0 


290 PRINT@P, "+"; : PRINT@U, " ">, > P=P+2 
260 U=U+2: PRINT@P-2Z," "; :PRINT@U,1$§,; 
270 IF P>)=PP THEN PRINT@U," ";:GOTO 240 


280 POKE SL,40:D=USR(0):PX=RND(127) 
290 IF PX¢=63 THEN 280 

300 IF ABS(P-PX)<=8 THEN 320 

310 GOTO 250 

320 REM A DROP 

330 PL=P 

3940 PRINT@P,"*"; :P=P+64 

3530 PRINT@P-64," "5 

360 IF P>PL+896 THEN 410 

370 K=PEEK(194440):IF K=32 THEN 420 
380 IF K=64 THEN 470 

390 R=R+25:RR=RR+25: PRINT @18,RR; : PRINT@5S5,R; 
400 IF P=U THEN 5350 ELSE GOTO 340 
410 PRINT @960,X5;:P=PL:RR=0: GOTO 
420 PRINT@U," ",; 

430 U=U-2 

440 IF U<c=UV THEN 480 

430 PRINT@U,1S,; 

9460 U=PL+896:GOTO 340 
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470 
480 
490 
200 
910 
920 
930 
940 
330 
960 
970 
980 
390 
600 
609 
610 
615 
620 
625 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
790 
760 
770 
780 
790 
800 


PRINT@U," "; 

U=U+2 

IF U>)=UW THEN U=UV 

GOTO 450 

REM MESSAGES 

PRINT@0O," POINTS BEFORE HIT", 
PRINT@40, "TOTAL POINTS"; 

RETURN 

REM BOMBED 

R=R-RR: PRINT@S5S,R; : PRINT@960, X$§; 
IF U¢=962 THEN U=U+3 

IF U>=1020 THEN U=U-4 
U1l1=VU-64:U2=VU1-1 :U3=U14+1:U4G=!1 
PRINT®@U, '"*%"; 

POKE SL,200:D=USR(0) 

PRINT @U1,"%*%"; :PRINT@UZ2,"%",; 

POKE SL,230:D=USR(0) 

PRINT@U3,"%"; 

POKE SL,240:D=USR(0) 

FOR T=1 TO 200 :NEXT: U4G=U4+1 
PRINT@U," "“; :PRINT@UZ2,STRINGS$ (10,32); 
IF ABS(U-U1)>=256 THEN 670 
VU1=U1-64:U2Z2=VU1-U4 :U3=U1+U4:GOTO 600 
REM GONE 

FOR T=1 TO 1000:NEXT 

CLS 

PRINT" YOU HAVE BEEN DESTROYED BY ONE" 
PRINT"OF THE FALLING BOMBS. YOUR" 
PRINT"'TOTAL POINTS ACCRUED BEFORE" 
PRINT" YOU WERE DESTROYED WERE:";R 
PRINT: FOR T=i1 TO 1000:NEXT 
A$="END OF RAIN OF TERROR." 

FOR I=1 TO LEN(A$S) 

PRINT MIDS$¢(A$,1,1);:POKE SL,30 
D=USR(0) 

NEXT 

END 


Variables and Strings 


SL - Sound location (machine language routine) 

X$ - For clearing area on video 

I$ - User’s mark 

R - Points 

P, PP, U, UV, UW - All used in conjunction with one another for bomb 
location before drop and user’s location 

D - USR call for output of sound 
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PX - Used for a bomb drop, if less than or equal to 8 
PL - Length of the drop 

K — User’s movement (peek) 

RR - Points before actually hit by bomb 

U1, U2, U3, U4 - For explosion of user’s mark when hit 
T - Time loop (pause) 


Explanation of the Program Lines 


Lines 10-190 initialize the sound location variable and display 
the general instructions. 

Lines 200-310 initialize more variables and keep the bomb and 
location of the drop moving before a drop. 

Lines 320-540 drop a bomb on the user’s location, determine 
the user’s location (if any), increase the score until the hit occurs, 
and determine the total score. If P= U (line 400), the user is 
destroyed. 

Lines 550-660 display the explosion of the user’s mark when it 
is hit by a bomb. 

Lines 670-800 display the user’s total number of points ob- 
tained before the mark was destroyed. 
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ILI LTS 


YOU MISSED 


KNIGHTS 


You've been hired by the king to destroy some knights that have 
escaped from the dungeon and gone into a castle. You are a 
sharpshooter, but it won’t be that easy. The knights have captured 
some hostages, so think before you fire into that open window; you 
could shoot a hostage. If you destroy all of the hostages, the king 
will have your head! Note that the IBM version of this program is 
included in Appendix A, and the Apple version in Appendix B. 


Sample Run 


>> >>KNIGHTS<<<< 
INSTRUCTIONS NEEDED? YES 


THERE ARE 10 KNIGHTS IN A CASTLE. 
THERE ARE KNIGHTS THAT HAVE DONE 
WRONG AND WERE IN A DUNGEON 
WAITING TO HAVE THEIR HEADS 
REMOVED. THEY HAVE BROKEN OUT OF 
THE DUNGEON AND GONE INTO A 
CASTLE. ALONG WITH THEM ARE 

8 HOSTAGES. THE KING 

WILL NOT MEET TO THE CONDITIONS 
THEY HAVE SET, SO THEY'RE 

GOING TO STAY UNTIL THE END... 
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START 
PRINT 
INSTRUCTIONS 


SET 
VARIABLES 


MAKE A 
CASTLE 


GET 
RANDOM WINDOW 


CONTINUE LOOP - << 


PLACE FIGURE 
IN WINDOW 


OUTPUT MESSAGE 
THAT APPLIES 


TEST ALL 
ARGUMENTS 


: , 
N 
OUTPUT CLOSING 
MESSAGE 


STOP 


Flowchart for Knights . 
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YOU HAVE 9 ARROWS TO FIRE. 


PRESS ENTER TO RESUME? 


YOU ARE THE SHARPSHOOTER SELECTED 


BY THE KING TO TERMINATE EACH 
OF THESE KNIGHTS. YOU ARE 


EQUIPPED WITH A HIGH-POWER CROSS- 


BOW. ALONG THE CASTLE WALLS ARE 
FIVE WINDOWS. EACH TIME A FIGURE 
APPEARS AT A WINDOW YOU'LL HAVE 
THE OPTION OF WHETHER OR 

NOT TO FIRE (BY HITTING 

THE SPACE BAR). THE 

FIGURE THAT APPEARS AT A WINDOW 
COULD BE ONE OF THE HOSTAGES. 

IF IT IS A KNIGHT AND YOU DON'T 
FIRE, YOU COULD BE HIT... 


PRESS ENTER TO BEGIN? 


Program Listing 


10 REM PROGRAM TITLE: KNIGHTS 

20 CLEAR 700 

30 CLS: RANDOM 

40 PRINT")>))> KNIGHTS (¢¢¢" 

50 PRINT 

60 PRINT“ INSTRUCTIONS NEEDED", 
70 INPUT TS$ 

80 IF T$="N" OR TS$="NO" THEN 370 
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90 
100 
110 
120 
130 
140 
150 
160 
170 
160 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
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PRINT"THERE ARE 10 KNIGHTS IN A CASTLE” 
PRINT" THESE ARE KNIGHTS THAT HAVE DONE" 
PRINT"WRONG AND WERE IN A DUNGEON" 
PRINT’ WAITING TO HAVE THEIR HEADS” 
PRINT" REMOVED. THEY HAVE BROKEN OUT OF" 
PRINT"THE DUNGEON AND GONE INTO A" 
PRINT"CASTLE TAKING EIGHT HOSTAGES" 
PRINT"WITH THEM. THE KING WILL" 
PRINT"NOT AGREE TO THE CONDITIONS" 
PRINT" THEY HAVE SET DOWN, SO THEY'RE" 
PRINT"GOING TO STAY 'TIL THE END..." 
PRINT: INPUT"PRESS ENTER TO RESUME" ,T$ 
PRINT@O ,CHR$(30) 

PRINT" YOU ARE THE SHARPSHOOTER SELECTED” 
PRINT"BY THE KING TO TERMINATE EACH" 
PRINT"OF THESE KNIGHTS. YOU ARE" 

PRINT" EQUIPPED WITH A HIGH-POWER CROSS-" 
PRINT" BOW. ALONG THE CASTLE WALLS ARE" 
PRINT" FIVE WINDOWS. EACH TIME A FIGURE" 
PRINT"APPEARS AT A WINDOW YOU'LL HAVE" 
PRINT"THE OPTION OF WHETHER OR NOT TO FIRE" 
PRINT" (BY HITTING THE SPACE BAR). THE" 
PRINT" FIGURE THAT APPEARS AT A WINDOW" 
PRINT"COULD BE ONE OF THE HOSTAGES. " 
PRINT" IF IT IS A KNIGHT AND YOU DON'T" 
PRINT"FIRE, YOU COULD BE HIT..." 

PRINT 

INPUT" PRESS ENTER TO BEGIN" ;T$ 

CLS: K=10:HD=8:CR=10 

REM MAKE A CASTLE 

CS$=STRINGS (62,191) 

A=320 

PRINT@A ,C$; 

IF A>d=768 THEN 449 

A=A+64:GOTO 410 

REM TOP OF CASTLE 

A=256:CS5=CHRS (183)+CHRS$(187) 
PRINT@A,CS,; 

A=A+4 

IF A>)=320 THEN 500 

COTO 460 

REM NOW FIVE WINDOWS 
CS$=STRINGS(5,32):J=1 

A=A472:XX=19 

PRINT@A,CS; :PRINT@A+649,C$; 

A( J) =A+65:JeaJel 

IF A>d=432 THEN 970 

A=A+10:GOTO 530 


070 
980 
990 
600 
610 
620 
630 
640 
630 
6460 
670 
680 
690 
700 
710 
720 
730 
740 
730 
760 
762 
769 
770 
780 
790 
800 
810 
820 
830 
840 
850 
8460 
870 
880 
890 
900 
910 
920 
930 
940 
990 
960 
970 
980 
990 
1000 
1010 
1020 


REM FIGURE 
FS=CHR$(182)+CHR$(143)+CHR$(185) 
REM GET A WINDOW 

W=RND($5) 

WI=A(W) 

REM PAUSE BEFORE PLACING 
PA=RND(700):IF PA(=250 THEN 630 
FOR PU=1 TO 700 

IF PU=PA THEN 470 

NEXT:GOTO 630 

PRINT@WI,FS; 

REM SHARPSHOOTER TO FIRE 

FOR Tl=1 TO 100 

WScINKEYS 

IF WS¢>"" THEN 730 

NEXT 

REM KNIGHT OR HOSTAGE 
Hi=RND(5):H2=RND(5) :H3=RND(5) 
H=ABS(H1-H2-H3) 

PRINT@WI ,STRING$(9,932) ; 

IF H=W THEN 1240 

IF HD<(=0 THEN 840 

IF H¢=0 OR H}=5 AND TI1¢=99 THEN 790 
GOTO 840 

REM A HOSTAGE 

PRINT@O,;:1F TiI)=73 THEN 880 
PRINT" YOU HAVE JUST KILLED ONE" 
PRINT"OF THE HOSTAGES, TURKEY !!" 
GOTO 970 

PRINT@0,,:1F TI)>=100 THEN 880 
PRINT"GOOD SHOOTING, YOU HAVE" 
PRINT"KILLED ANOTHER KNIGHT." 

GOTO 940 

PRINT@O,;:1F H)=0 AND H(=2 THEN 1020 
PRINT" THINK FASTER !! YOU HAVE BEEN" 
PRINT"HIT BY ONE OF THE KNIGHTS !!" 
HK=HK +1 

IF HK)=6 THEN 1060 

GOTO 790 

K=K-1:PRINT K; "KNIGHTS REMAIN. " 

IF K(=0 THEN 1120 

GOTO 990 

HD=HD-~-1 

IF HD<=0 THEN 1180 

FOR TX=1 TO 1500:NEXT 

REM CLEAR PRINT AREA 
PRINT@O,STRING$(255,32);:GOTO 1400 
IF HD<=0 THEN 890 
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1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
12495 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1390 
1360 
1370 
1380 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1300 
1510 
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PRINT"GOOD THING YOU DID NOT FIRE" 
PRINT"THAT WAS A HOSTAGE !!" 

GOTO 990 

REM HIT ENOUGH 

PRINT@0O, ; 


PRINT" YOU HAVE BEEN HIT"; HK; "TIMES. " 


PRINT" YOUR BODY CANNOT STAND" 
PRINT" ANYMORE. YOU ARE DYING... .." 
GOTO 1530 

REM KNIGHTS OMITTED 

PRINT@O, ; 

PRINT" YOU HAVE KILLED ALL 10" 
PRINT"KNIGHTS THE KING WILL BE" 
PRINT"PROUD OF YOU MY FRIEND..... " 
GOTO 13530 

REM HOSTAGES GONE 

PRINT@0O, ; 

PRINT"YOU HAVE KILLED ALL OF THE" 
PRINT"HOSTAGES...YOU TURKEY !!" 
PRINT"THE KING WILL HAVE YOUR HEAD 
GOTO 990 

REM COMPLETE MISS 

IF TI)=100 THEN 765 

XX=RND(122) 

IF XX(=2 THEN 1260 

YY=RND( 35) 

IF Y¥(=17 THEN 1270 

RESET(XX,YY) 

PRINT@O, ; 

PRINT'YOU'LL HAVE TO DO BETTER" 
PRINT" THAN THAT, YOU'VE MISSED !!" 
GOTO 990 

REM CROSSBOW ROUNDS 

PRINT@910,,; 


PRINT" YOU HAVE"; CR; "ARROWS TO FIRE." 


RETURN 

REM ENOUGH ARROWS LEFT 

IF TI1¢=99 THEN CR=CR-1 

GOSUB 1350:I1F CR¢«=0 THEN !440 
GOTO 390 

REM END 

FOR TX=1 TO 2000:NEXT 

CLS 

PRINT"YOU HAVE EXHAUSTED YOUR" 
PRINT"SUPPLY OF CROSSBOW ARROWS." 
IF K()0 THEN 1510 

GOTO 13530 

PRINT"THERE ARE STILL"; K; "KNIGHTS" 


1520 PRINT" IN THE CASTLE. ..." 

1330 PRINT 

1540 IF HD<¢(=0 THEN 1560 

1350 GOTO 1600 

1560 PRINT" YOU ARE A BLUNDERING SHARP-" 
13970 PRINT"SHOOTER, YOU IDIOT !!" 
1580 PRINT" YOU HAVE HIT AND KILLED " 
1390 PRINT"THE 8 HOSTAGES !!!" 

1600 PRINT 

1610 PRINT"“END OF RUN." 

1620 END 


Variables and Strings 


K - Number of knights 

HD - Total number of hostages 

CR - Total arrows 

C$ - CHR§$ for castle and windows 

A - Print @ location for structure of castle 

AQ) - Locations of windows (5) 

W - Random window selection 

WI - Window select, ACW) 

PA - Pause before placing figure in selected window 

W$ - INKEY$ to fire at figure 

H1,H2,H3,H - Used to determine if the figure was a hostage 
TI - Time loop for the length of time figure will appear in window 
HK - Counter user hit by knight 

XX, XY - Used to reset an area of the castle for a user miss 


Explanation of the Program Lines 

Lines 10-360 display the general operating instructions. 

Line 370 initializes 3 variables. 

Lines 380-560 display a castle and set the 5 window locations 
to the subscripted variable A(J). 

Lines 570-580 establish the figure that will appear in a window. 

Lines 590-610 select (randomly) which one of the five windows 
the figure will appear in. 

Lines 620-660 establish a random-length pause determined by 
the variable PA, before the figure is printed. 

Lines 680-720 use the INKEY$ function for the user to fire 
upon the figure. 

Lines 730-750 use variables to determine whether figure was a 
hostage or a knight. 

Line 760 clears the figure from the window. 
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Line 762 determines whether or not the shot missed com- 
pletely. 

Line 765 sends program control to line 840 where a knight 
eliminated if Tl< = 99. 

Line 770 determines whether or not a hostage hit, if Tl< = 99. 

Line 780 is the same as line 762 and is used if previous 
conditions were not met. 

Lines 790-830 display the hostage killed message. 

Lines 840-870 display the knight killed message. 

Lines 880-930 indicate that the user has been hit by a knight. If 
the user receives at least 6 hits, he or she will be declared dead (line 
920). 

Lines 940-960 display a message indicating how many knights 
remain. If K<= 0 all knights have been eliminated. 

Line 950 sends program control to line 1120 if all the knights 
are dead. 

Lines 970-980 are accessed when a hostage is killed. If all 
hostages are killed, the king will have the user’s head (line 980). 

Lines 990-1010 form a delay loop and clear the print messages. 

Lines 1020-1050 print a message indicating that a hostage was 
in window. 

Lines 1060-1110 display the message that the user is dying. 

Lines 1120-1170 display the message that all the knights have 
been killed. 

Lines 1180-1230 display the message that all the hostages have 
been killed, but the program continues so that the user can finish off 
the knights. 

Lines 1240-1330 are used when the user misses completely. 
Message is displayed, and an area of the castle is reset to show what 
area was hit. 

Lines 1350-1380 display a message that indicates how many 
arrows remain. 

Lines 1400-1430 test the number of arrows remaining. If there 
aren't any, the program is terminated. 

Lines 1440-1620 terminate the program and display the ap- 
propriate messages. 
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Games to Keep You 
Alert or Put You to Sleep 


Triangle is a game of chance that tests your luck in avoiding landing 
on the spot chosen by the computer. 

Mind Invasion forces you to move quickly to avoid being 
crushed. 

Trapped challenges you to trap the computer’s piece. Watch 
out—1t can burn you. 

Elevator tests your memory. Can you get all the customers to 
the floors they want to go to? 

Farewell offers a merciful death. All you must do is land on 
the spot where the cobra is hiding. To win you must land on the spot 
indicated by a quick flash. 

Insomnia will put you to sleep. All you have to do is watch the 
screen. 

Rainy Daze puts your attention span on trial. How long can 
you concentrate on the numbers on the screen? 
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YOU'RE OUT OF THE GAME 


TRIANGLE 


Moving around in a triangle. You and two other people will try tc 
avoid landing on the spot selected by the computer. There is a way 
to come out the victor almost every time. That is all I will tell you; 
you'll have to figure out how yourself. Don’t get your arms tangled 
with the other two players during the trips around the triangle! 
Refer to pages 1-3 for information on the sound routine. 


Sample Run 


... FRIANGLE... 


OUTLINE FOR PLAY?YES 

THIS PROGRAM REQUIRES 3 PLAYERS. 
THE COMPUTER WILL SELECT A LOCATION 
AT THE START OF THE PLAY. EACH 
PLAYER IN TURN WILL ENTER 

A NUMBER FROM 1 TO 9. THE MOVE 
AROUND THE TRIANGLE WILL 

BEGIN. IF AT ANYTIME A PLAYER 
LANDS ON THE SPOT THE COMPUTER 
HAS CHOSEN, THAT PLAYER WILL BE 
ELIMINATED FROM THE GAME. 


PRESS A KEV... 
THIS WILL CONTINUE UNTIL THERE 
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START 


PRINT 
INSTRUCTIONS 


FIRST NAMES 
3 PLAYERS 


COMPUTER 
SELECTS FIAST 
PLAYER 


GRAPHICS 


INPUT 
PLAYER AMOUNT 
MOVE CHARACTER 

PER AMOUNT 


DELETE 
ov PLAYER | 
PLAYER 
ADVANCE 


Y 
OUTPUT 
WINNER AGAIN N STOP 


Flowchart for Triangle. 
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TRIANGLE 


IS ONLY ONE PLAYER LEFT, THE 
WINNER. THINK BEFORE YOU ENTER A 
NUMBER AND KEEP YOUR EYE 

ON THE OPPONENT. 

3 FIRST NAMES, PLEASE. 


Program Listing 


10 
Z0 
30 
40 
00 
60 
70 
80 
70 
100 
110 
120 
130 
140 
130 
160 
170 
180 
190 
200 
210 


REM PROGRAM TITLE: TRIANGLE 

REM REQUIRES THREE PLAYERS 

CLS 

PRINT"... TRIANGLE " 

PRINT 

INPUT"OUTLINE FOR PLAY" ;,&& 

IF MID$¢X$,2,1)¢)"E" THEN 240 

PRINT" THIS PROGRAM REQUIRES 3 PLAYERS." 
PRINT“EACH PLAYER WILL TRY TO EVADE" 
PRINT"THE OTHER, IN A NEVER ENDING” 
PRINT"TRIANGLE MORE LIKE A CHASE," 
PRINT"THE SECOND PLAYER WILL MOVE" 
PRINT" AROUND THE TRIANGLE, SEARCHING" 
PRINT"FOR THE FIRST AND THIRD. THE THIRD" 
PRINT"PLAYER WILL SEARCH FOR THE SECOND" 
PRINT"OR FIRST. THEN THE FIRST WILL" 
PRINT"SEARCH FOR THE SECOND OR THIRD..." 
PRINT"!!! WH EW ¢i!" 

GOSUB 1000:CLS 

PRINT"THIS WILL CONTINUE UNTIL ONLY ONE" 
PRINT" PLAYER IS LEFT, THAT PLAYER WILL" 
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220 
230 
240 
290 
260 
270 
280 
290 
300 
310 
320 
330 
340 
390 
360 
370 
380 
390 
400 
410 
420 
430 
440 
430 
960 
470 
480 
490 
200 
910 
920 
930 
240 
990 
960 
770 
980 
990 
600 
610 
620 
630 
640 
630 
660 
670 
680 
690 
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PRINT" BE THE WINNER. MOVE AMOUNTS WILL” 
PRINT" RANGE FROM 1 THROUGH ? ENTER NOW" 
PRINT" THE THREE PLAYERS FIRST NAMES", 
FOR [=1T0O3 

INPUT N$(1I):NEXT: Y=2 

PRINT" FIRST PLAYER SELECTION... " 

FOR JT=1TOLO:L(I)=1I:NEXT: FOR T=1T01000 
NEXT: R=1:GOSUB 1400:A=RND(3) 

IF A=1 THEN 360 

IF A=2 THEN 340 

N$(0)=N$(3).FOR T=ATO1 STEP-1 
NS(T)=N$(Y):Y=Y-1.NEXT:GOTO 350 
N5(0)=N$(62):N$(02)=N$(3):N$(3)=N$ (1) 
N$(1)=N$(0) 

I=1:RANDOM 

PRINT"THE FIRST PLAYER IS: ";N$(1) 
PRINT 

GOSUB 1000:CLS 

REM GRAPHICS WITH SOUND 

POKE 16926,0:POKE 16527,122 

W=897 

PRINT@W,CHRS (143); 

POKE 31265,30:POKE 31266,100:X=USR(0) 
IF W)=958 THEN 470 

W=W+1:GOTO 430 

PRINT@923," TRIANGLE "; :M=2:N21249:Q=41 
SET(M,Q) .SET(M+1,Q):SET(N,@) :SET(N+1 ,Q) 
POKE 31265,30:POKE 31266,N:X=USR(0) 
M=M+2:N=N~-2:Q=Q-! 

IF ABS(M-Q)=54 THEN 530 

GOTO 480 

NS=N$(1I):PRINT@0,N$;" YOUR LOCATION. 
F=0:IF P=t THEN 560 

J=863:REM MOVEMENT TO LEFT 
PRINT@J,CHR$(143); 

IF F¢(>)3 THEN 590 

GOTO 630 

F=F+1 

POKE 31265,30:POKE 31266,200:X=USR(0) 
FOR T=1T0100.NEXT:PRINT@J,CHRS( 32) ; 
FOR T=1T0125:NEXT:GOTO 3560 

REM ENTRY AMOUNT 

PRINT@O, ; :NN=220 

PRINT N$;" ENTER A NUMBER?" , 

GOSUB 1010:A=VAL(X¥$):K=0:GOSUB 990 

IF K{)A THEN 690 

GOTO 940 

GOSUB 1100 


700 
710 
720 
730 
739 
740 
730 
760 
770 
780 
790 
900 
910 
920 
930 
940 
945 
990 
960 
970 
980 
990 
1000 
1010 
1020 
1100 
1110 
1120 
1130 
1140 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1339 
1340 
13495 
1350 


J=J-1:GOSUB 1130 
D=!1 THEN GOSUB 920:GOTO 740 


IF 
IF 
IF 
IF 
IF 


J¢=837 THEN GOSUB 900 


J=350 THEN GOSUB 1100:GOTO 780 
J=352 THEN GOSUB 1100-GOTO 780 


J=889 THEN D=0:NN=220 


K=K+1:GOTO 1200 
POKE 31265,30:POKE 31266,NN: X=USR(0) 
GOTO0470 
JeJ+3:D=1 
GOTO 740 
GOSUB 1100 
J=(3-64)+4:>NN=NN-2:GOSUB 1130 RETURN 
GOSUB 1100 
J=J+68:NN=NN+2:GOSUB 1130:RETURN 
REM PLAYER ADVANCE / DELETE 
PRINT@(0+LEN(NS)+16)," 
J(TI)aJ DCI) =D: T=i+1:GOSUB 1100 
IF f)=4 THEN [=1:P=1 
IF P=i1 THEN JeJ(1I):D=DC1) 
IF N$(I)="" THEN 930 ELSE GOTO 3530 
PRINT@(0+LEN(N$)4+16),A; :RETURN 


PRINT" PRESS A KEY 


oo. 
‘ 


X$=INKEYS: IF X$="" THEN 1010 
RETURN 
REM CLEAR CHARACTER BEFORE MOVEMENT 


PRINT@J,CHR$ (32) ; 


RETURN 
PRINT@J,CHRS (143), 
RETURN 


REM DROP A PLAYER 


IF 
IF 
IF 
IF 
IF 


IF Us3 THEN 
iF Vsz THEN 
if VU=1 THEN 


T=1 THEN 1250 
Tl=2 THEN 1240 
JaJ(I-2) OR JaJ(I-1) THEN 


JeJ(lT-1) 


OR J= 
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J(t+1) 


THEN 


JoJ(I+i) OR JaJ(I+2) THEN 
GOTO 760 
IF J¢(oL OR KVOA THEN 1260 
REM PLAYER DELETED 


GOTO 1260 


IF 
IF 
IF 
IF 
TF 


JeJ(CI-2) 
JeJ(T-1) 
JeJ(I-1) 
JeJ(I+1) 
JaJCI+1) 


1330 
1340 
1350 


THEN 
THEN 
THEN 
THEN 
THEN 


NX=I-2: 
NX=I-1: 
NX=I-1: 
NX=I+1: 
NX=I+1- 


GOTO 
GOTO 
GOTO 
GOTO 
GOTO 


Y=I:GOTO 1270 
V=I:GOTO 1270 
U=I1:GOTO 1270 


1360 
1360 
1360 
1360 
1360 
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1355 IF J=J(1I+2) THEN NkX=I+2:GOTO 1360 
1360 PRINT@é4,, 

1370 PRINT'PLAYER ELIMINATED ..";NS(NX);" 
13860 N$(NX)="": FT=30:FF=3:GOSUB 1580 

1390 GOTO 1500 

1400 REM LOCATION SELECT 

1410 IF R>=2 THEN 1430 

1420 FOR W=1TO1LO0:READ L(W) : NEXT 

1430 L=RND(10) 

1940 IF L¢L)=0 THEN 1430 

1450 L=L(L): RETURN 

1460 DATA 850,889,822,716,688 

1470 DATA 621,594,472,420,411 

1300 REM DELETE AND SELECT 

1310 REM ANOTHER LOCATION 

1520 L(R)=0:R=R+el 

1530 IF R=3 THEN FF=10:FT=1:GOTO 1570 
15940 GOSUB 1400 

13950 J(NX)=0: FOR T=1T01000:NEXT 

1560 GOTO 940 

1370 GOSUB 1580:GOTO 1640:REM WINNER 

1380 A=150:FOR J=1TOS:A(I)=A 

1390 A=A+50:NEXT: F=0 

1600 FOR [f=iTO3 

1610 POKE 31265,30:POKE 31266,A(1)-FT: X=USR(0) 
1620 NEXT 

1630 IF FC)FF THEN F=F+i:GOTO 1600 ELSE RETURN 
1640 PRINT@1268, ; 

1650 PRINT"THE CHAMP IS... ."; 

1660 IF N§C1)4)9"" PRINT N$(1):GOTO 1690 
1670 IF N$(2)¢>"" PRINT N$(2):GOTO 1690 
1680 IF N$(3)¢0"" PRINT N$(3) 

1690 FOR T=1T0O1200:NEXT 

1700 CLS 

1710 INPUT"READY TO TRY ANOTHER TRIANGLE"; Z$ 
1720 IF Z§¢)"¥" AND Z$¢{)"YES" THEN 1750 
1730 CLS:FOR Y=1TO3:J(1I)=0:NEXT: P=0 

1740 RESTORE:GOTO 240 

1750 PRINT 

1760 PRINT"END OF TRIANGLE... .":F=0 

1770 POKE 31265,30:POKE 31266,120: X=USR(0) 
1780 IF F¢(>15 THEN F=F+1:GOTO 1770 

1790 END 


Variables and Strings 


N$(I) - Players’ names 
L(D,L - Selection of one location by the computer 
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W - Triangle graphics 

J - Character position of current player 

NN - For sound output (machine program) 

A - User move number (value of X$) 

K - Value of the distance from the start position to stop 
D - For direction of character (around inside of triangle) 
Jd) - For advance or elimination of a player 

U - Player eliminated 

F - Variable for sound output 


Explanation of the Program Lines 


Lines 10-230 display the general operating instructions. 

Lines 240-280 request the three players’ first names. 

Lines 290-350 select the first player. 

Lines 360-520 indicate who the first player is, display the 
triangle, and establish the sound routine. 

Lines 530-620 keep track of the current player’s location within 
the triangle. 

Lines 630-690 accept the player’s move. 

Lines 700-930 move the player’s character in the correct di- 
rection and keep it within the triangle. 

Lines 940-1020 either advance or eliminate the player. 

Lines 1100-1140 clear the character before movement. 

Lines 1200-1390 eliminate a player if that player has landed on 
a computer selected location. 

Lines 1400-1560 read the data for all the locations within 
triangle and then select one location. 

Lines 1570-1790 print the winner’s name and allows the users 
to try again. 
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MIND INVASION 


The computer will try to invade your mind with as many moving 
graphics as possible. What you must dois move out of the way of the 
two blocks before they meet in the middle of the video and squash 
you. To gain any points at all, you must be constantly moving up or 
down. This motion is achieved by using the up and down arrows, of 
course. Note that the IBM version of this program is included in 
Appendix A, and the Apple version in Appendix B. 


Sample Run 


MIND INVASION 


NUMBER OF PLAYERS? 5 
PLAY OUTLINE NECESSARY? YES 
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EACH OF YOU 5 PLAYERS WILL 
EXPERIENCE A NEW FORM OF MIND 
INVASION. THE OBJECT OF THE GAME: 
KEEP PLAYING AS LONG AS POSSIBLE 
WITHOUT GETTING CRUSHED. 

YOU, THE USER WILL BE LOCATED AT 
THE CENTER OF THE VIDEO DISPLAY 
IN THE FORM OF A ‘+’ SIGN. YOUR 
ONLY MOVEMENTS WILL BE STRAIGHT 
UP OR STRAIGHT DOWN, ACCOMPLISHED 
WITH THE UP ARROW AND DOWN 
ARROW KEYS. 


PRESS A KEY..... 


TO TAKE ADVANTAGE OF ANY POINTS 
YOU MUST BE CONSTANTLY MOVING 

UP OR DOWN. THE OUTER BOUNDARIES 
OF THE VIDEO WILL CONTAIN 

FLASHING ASTERISKS FOR CONFUSION. 
ALSO CONTAINED IN THOSE BOUNDARIES 
ARE TWO BLOCKS THAT, 

WITHOUT NOTICE, WILL MOVE VERY 
QUICKLY TOWARD THE CENTER TO 
YOUR LOCATION. IF YOU ARE SUCCESS- 
FUL IN MOVING OUT OF THE WAY, 

YOU CAN CONTINUE PLAYING. IF, ON 
THE OTHER HAND, YOU GET SMASHED, 
PLAY WILL ADVANCE TO THE NEXT 
PLAYER. THIS IS ALSO TRUE IF 

COLLIDE INTO THE BLOCKS. 


PRESS A KEY..... 


THE GAME ENDS WHEN EACH 

PLAYER HAS PLAYED A TOTAL OF 2 (TWO) 
ROUNDS. THE PLAYER FINISHING WITH 
THE HIGHEST SCORE WILL BE THE 
WINNER..... 


ENTER THE 5 PLAYERS 
FIRST NAMES NOW 
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START 


NUMBER 
OF PLAYERS 


INPUT PLAYERS’ 
NAMES 
SET VARIABLES 
GRAPHICS 
PRINT PLAYER 
BEGIN PLAY 


DEDUCT 
POINT VALUE 


CONTINUE 
GRAPHICS 


DOWN” 
CHARACTER MOVE 


"UP" 
Y CHARACTER MOVE 


DEDUCT ADVANCE 
Y POINT VALUE PLAYER 


SORT SCORES 
PRINT TOP PLAYER [y 


STOP 


Flowchart for Mind Invasion. 
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POINTS = 


Program Listing 


10 

20 

30 

40 

20 

60 

70 

80 

70 
100 
110 
116 
120 
130 
140 
150 
160 
170 
200 
210 
220 
230 
240 
250 
260 
270 
280 
270 
300 
310 


REM PROGRAM TITLE: MIND INVASION 
REM INSTRUCTION ROUTINE 


CLEAR $00:GOSUB 1500:J=s1:TR=1 

REM OUTER GRAPHICS 
K=19360:-¥=15423:K2=191:PN=1:TX=¥+417:TL=TX 
POKE X,K:POKE Y,K:POKE X+10,K:POKE Y-10,K 
R2X465: Ya(¥4+64)-1:JeJe1 

IF J¢>INT(K/22) THEN 60 

REM GOTO CHARACTER PRINT / IF DONE 

IF J=l16 THEN N=42:POKE TX,43:GOTO 140 
POKE X,K:POKE Y,K:POKE X+10,K:POKE Y-10,K 
IF PN=1l THEN A(1)=8:A(2)=Y:LeA(1) :R=A(2) 
X=(X464d)-1:Y=¥+6$ 

JeJ+1:PN=2:GOTO 100 

PRINT@1000,"YOUR POINTS =", 

PI=0 

GOSUB 910 

PRINT@960,"PLAYER...";N$(PZ); 

REM CHARACTER GRAPHICS VARIABLES 
J=7:E=498:F=505 :T=l1:E2=E:F22sF:TC=11:8C=907 
KY=1:G242:GOSUB 380:IF TI>=3 THEN &80 
PRINT@E,.WS$; :PRINT@F ,W$; :EL=E+64:FisF+65 
T=T+1:GOSUB 350 

PRINT@E,L$;,:PRINT@F,LS,; 

IF T>)=2 THEN J=J-1:GOSUB 380:GOSUB 350 
PRINT@E-64,WS; :PRINT@E1 ,W$; 
PRINT@F-63,WS,:PRINT@F1,WS; 
PRINT@E-64,L5,;,:PRINT@E1,LS$; 
PRINT@F~63,L$; :PRINT@F1,L$;:GOTO 400 
E=~E-64:F=F-63 ElL=E2+128:FL=F2+130 
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3920 E2=E2+64:F2=F2+65:T=T+l 

330 REM RESET VARIABLES IF DONE 

335 GOTO 700 

340 IF T)=8 THEN 200 ELSE KY=KY+1:GOTO 260 
390 REM FOR CHARACTER CLEAR 

360 LS=STRINGS(J,32) :Q$=STRINGS(G, 42) 
3970 Q1IS=STRINGS(G,32) : RETURN 

380 WS=STRINGS(J,N) 

3790 RETURN 

400 X$=INKEY$:REM USER MOVEMENT 

905 TI=TI+1:REM LIMIT COUNT WITHOUT MOVEMENT 
410 IF X$="" THEN 340 

420 TIl=1:REM PLACEMENT / LIMIT / RESET 
430 IF ASC(X$)=10 THEN 460 

440 IF ASC(X$)=91 THEN 490 

4230 GOTO 340 

460 POKE TX,32:TX=TX+64 

470 IF ABS(TX-TL))=128 THEN TX=TX-64 
480 POKE TX,43:UC(KY)=sASC(X$):GOTO 340 
490 POKE TX,32:TX=sTX-64 

900 IF ABS(TX-TL))>=128 THEN TX=TX+64 
Yi0 POKE TX,43:U(KY)=ASC(X$):GOTO 340 
600 REM TOP / BOTTOM CHARACTERS 

610 PRINT@TC ,Q$; 

620 PRINT@BC QS, 

630 PRINT@TC,Q1$; 

640 PRINT@BC,Q1$, 

630 TC=TC+65:BC=BC-63:G=G~-2 

660 REM REPLACE USER CHARCTER 


670 IF PEEK(TX)=32 THEN POKE TX,43 
680 GOTO 310 


700 REM CRUSHER MOVEMENT 

705 POKE A(1)+10,32.POKE A(2)-10,32 

710 POKE L,32:POKE R, 32 

720 IF ABS(L-R)=1 THEN 750 

730 L=L+8:R=R-& 

740 POKE L,K:POKE R,K:GOTO 4090 

730 L=A(1):R=A(2):GOTO 800 

760 POKE L,K:POKE L+10,K 

770 POKE R,K:POKE R-10,X 

780 REM RECYCLE 

790 GOTO 400 

800 REM CRUSHED ? 

810 IF PEEK(TX)=32 THEN 840 

820 IF Ti¢=2 AND UCKY)(}UCKY-1) THEN PI=PI+ABS 
(TX-TL):GOSUB 910 

830 GOTO 760 

840 REM YES. . CRUSHED 
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830 PRINT@960,"¢(« C R US HE D ))"; 
860 POKE TxX,32 

870 FOR LX=1TO2000:NEXT:GOTO 950 

880 REM LIMIT REACHED / NO MOVEMENT 
890 TI=0 

900 PI=PI-ABS(TL-TX):GOSUB 910:GOTO 920 
710 PRINT@10149,P1; :RETURN 

920 GOTO 230 

930 REM PLAYER ADVANCE / END 

960 TP(PZ)=PI:PI=0:PZ=PZ+1 

970 iF PZ>PL THEN GOSUB 1200: TR=TR+!1:PZ=1 
980 IF TRd=3 THEN GOSUB 1240:GOTO 1010 
990 FOR LX=1T014: PRINT: NEXT 

1000 GOSUB 2100:CLS:J=!1:GOTO 40 

1010 REM END / HIGH POINT WINNER 

1020 T=0:H=1:IF H=PL THEN 1120 

1030 IF FT(H)?=FT(H+1) THEN 1080 

10940 FT=FTC(H) : FT(CH) =FT(H+1) 

1050 FITCH+1)=FT:N$=N$(H) :N$ (CH) =NS(H+1 ) 
1060 N$(H+1)=N$ 

1070 T=! 

1080 H=H+1l 

1090 IF HCPL THEN 1030 

1100 IF T=1 THEN 1020:REM NOT REFINED 
1110 GOTOI300 

1126 CLS 

11390 PRINT 

{140 PRINT” YOUR TOTAL POINTS, AFTER 2" 
1150 PRINT"ROUNDS =";,TP(H)+WE(CH) 

1160 GOTO 13990 

1200 REM TALLY FIRST ROUND POINTS 

1210 IF TR)=2 RETURN 

1220 FOR I=1TOPL 

1230 WE(I)=TP(1I):NEXT: RETURN 

1240 REM FINAL TALLY 

1250 FOR J=!1TOPL 

1260 FTCI)=sWEC1I)+TPCI) 

1270 NEXT 

12860 RETURN 

1300 REM TOP WINNER (MORE THAN 1! PLAYER) 
1310 CLS 

13920 I=! 

1330 PRINT"THE TOP WINNER. ";NS(1);," WITH"; 
1340 PRINT FT(1I); "POINTS." 

1350 PRINT" FOLLOWED BY: " 

1360 FOR I=2TOPL: PRINT N§(1I);" WITH", 
1370 PRINT FT(1I); "POINTS. " 

1380 NEXT 
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1390 PRINT 

1400 PRINT"END OF PROGRAM RUN.” 

1410 END 

1500 REM INSTRUCTIONS 

1310 I$="MIND INVASION" 

1920 1=5:CLS 

1330 FOR LX=1TOLEN‘I$) 

1540 PRINTTAB‘I) MID$(I$,LX,1); 

4350 FOR Y=1TO50:NEXT Y 

1960 f=I+i:NEXT LX 

1376 FOR Y=1T01000:NEXT 

1580 PRINT 

1390 INPUT"NUMBER OF PLAYERS (1-10)";PL 

1600 iF PL¢<=0 OR PL)=11 THEN 1590 

1610 PRINT"PLAY OUTLINE NECESSARY"; 

1620 INPUT X$§ 

1630 IF X$="N" OR X$="NO” THEN 2040 

1640 PRINT 

1690 PRINT"EACH OF YOU" | FL,"PLAYERS WILL" 
1660 PRINT" EXPERIENCE A NEW FORM OF MIND" 
1670 PRINT" INVASION. THE OBJECT OF THE GAME: " 
1680 PRINT"KEEP PLAYING AS LONG AS POSSIBLE" 
1690 PRINT'WITHOUT GETTING CRUSHED "“ 

1700 PRINT" YOU, THE USER WILL BE LOCATED AT" 
1710 PRINT"THE CENTER OF THE VIDEO DISPLAY" 
1720 PRINT" IN THE FORM OF A ‘+' SIGN. YOUR” 
1730 PRINT' ONLY MOVEMENTS WILL BE STRAIGHT" 
1740 PRINT"UP OR STRAIGHT DOWN, ACCOMPLISHED" 
1790 PRINT"WITH THE UP ARROW AND DOWN" 

1700 PRINT"ARROW KEYS " 


1770 FRINT 

1780 PRiINT"PRESS A KEY... " 

1790 XS=INKEYS: IF &4$="" THEN 1790 
1800 PRINT 


1810 PRINT"TO TAKE ADVANTAGE OF ANY POINTS" 
1820 PRINT"YOU MUST BE CONSTANTLY MOVING," 
1830 PRINT"UP OR DOWN. THE OUTER BOUNDRIES" 
1840 PRINT"OF THE VIDEO WILL CONTAIN" 

1850 PRINT" FLASHING ASTERISKS, FOR CONFUSION. 
1860 PRINT"ALSO CONTAINED IN THOSE BOUNDRIES” 
1870 PRINT"ARE TWO BLOCKS THAT," 

1880 PRINT"WITHOUT NOTICE, WILL MOVE VERY" 
1850 PRiINT"QUICKLY TOWARD THE CENTER TO" 

i900 PRINT'YOUR LOCATION. IF YOU ARE SUCCESS-" 
1910 PRINT"'FUL IN MOVING OUT OF THE WAY" 

1920 PRINT"YOU CAN CONTINUE PLAYING. IF, ON” 
1929 FOR LX=1T02600:NE&T 

1930 PRINT"THE OTHER HAND, YOU GET SMASHED" 
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1940 PRINT" PLAY WILL ADVANCE TO THE NEXT" 
i730 PRiNT"PLAYER. THIS IS ALSO TRUE IF" 
19553 PRINT"YOU COLLIDE INTO THE BLOCKS." 
1960 FOR LX=iTG2000 NEXT 

1970 PRINT"FRESS A KEY.. _ 

1980 AS=INKEYS: IF X$="" THEN 1980 ELSE PRINT 
1990 PRINT"THE GAME ENDS WHEN EACH" 

2000 PRINT"PLAYER HAS PLAYED A TOTAL OF TWO” 
2010 PRINT"ROUNDS. THE PLAYER FINISHING WITH" 
2020 PRINT"THE HIGHEST POINTS WILL BE THE" 
2030 PRINT"WINNER....." 

2040 PRINT 

20590 PRINT'NOW ENTER THE"; PL,"PLAYERS" 

2060 PRINT"FIRST NAMES" 

2070 FOR i=1TOPL: iNPUT N$(1I) 

2080 NEXT 

2090 PZ=1 

2100 PRINT N$(PZ);" WILL NOW PLAY, PRESS" 
2105 IF PZ>=2 OR TR)=2 THEN 2150 

2110 PRINT"A KEY WHEN READY..... " 

2120 X$=INKEY$:iF X$="" THEN 2120 

2130 CLS 

2140 RETURN 

2190 PRINT"THE ENTER KEY WHEN READY"; 

2160 INPUT X$:TI=0:RETURN 


Variables and Strings 


X ~- For the poke graphics for the left side 

Y - For the poke graphics for the right side 

K - Character code for X,Y and above 

PN - Counter to set subscripted variables A(1) and A(2) for block 
Start position 

L,R - For left and right movement of blocks 

TX, TL - For user character placement and used to signify character 
area. TX is also for the user character if it is crushed. 

PI - Total points for each player 

PZ - Counter for the correct player 

E,F,T,E2,F2 - For the Print @ graphics for the outer areas of the 
display 

TC,BC - For the top center and bottom center graphics 

KY - For key closure counter. Subscripted variable U (U(KY)) will 
insure that before any points are given, the user isn’t pressing the 
same direction key repeatedly 

G - A constant used for the number of characters for upper/lower 
graphics 
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TI - Counter for point deduction, user asleep? 
T - For outer, upper and lower Print @ graphics 
LX - For time loop 

TP - For total points received by current player 
PZ - Counter for number of players 

TR - Total rounds played 

H - Counter for player 

FT - For players total points after 2 rounds 

WE - Points obtained during first round 


Explanation of the Program Lines 


Line 30 clears 500 bytes of memory for string storage and 
branches to the instructions. 

Lines 40-80 poke the graphic blocks on the left and right sides 
of the video. 

Line 100 insures that all poke graphics have been completed 
and then branches to the start of the game. 

Lines 110-130 continues the poke graphics if they are done. 

Lines 140-170 start the game and print the player’s name and 
score. 

Lines 200-340 (and lines 600-680) keep all the graphics mov- 
ing. 

Lines 350-390 establish strings made up of characters or blank 
spaces. 

Lines 400-510 accept the user’s up and down character move- 
ment. 

Lines 700-790 move the crusher blocks (left and right) and 
reset them if they coincide. 

Lines 800-870 checks whether or not the user is crushed. If he 
or she has been crushed, play advances to next person. If not, line 
820 tests the current and preceding key closure and the variable TI 
(time limit). If each condition is met the user’s score will increase 
by amount at line 950. 

Lines 880-900 deduct an amount from users score if the time 
limit (TI) has been reached. This is to insure that the user's charac- 
ter doesn’t remain in one location. 

Lines 910-920 print the player’s score and then recycle and 
continue play. 

Lines 950-980 advance to the next player or terminate the 
game if all have played two rounds. 

Lines 990-1000 are used for player advance. 
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Lines 1010-1100 place the scores (and players) in order from 
the highest score to the lowest score. 

Line 1110 is used for the termination of the run. 

Lines 1120-1160 display the score when only one person is 
playing. 

Lines 1200-1230 set the subscripted variable WE to the user’s 
first round score. 

Lines 1240-1280 set the subscripted variable FT to the user’s 
final score. 

Lines 1300-1410 print the name of the top winner of game and 
then rest of players’ names in descending order. 

Lines 1500-2160 are used for the number of players, their 
names and the general instructions. 

Line 2105 tests the variables PZ and TR to determine which 
player is playing. 
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TRAPPED 


You must trap the computer’s piece. The drawbacks? The com- 
puter’s piece can only be trapped in a left/right movement area. You 
must keep it pinned this way for a certain amount of time. Don’t get 
burned by the computer’s piece: six burns and you’re out! There 
are, of course, other hidden obstacles, which you'll discover soon. 
Refer to pages 1-3 for information on the sound routine. Note that 
the IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


TRAPPED 
LIST INSTRUCTIONS? YES 


UP TO 10 PLAYERS CAN 

TRY TO OUTWIT THE COMPUTER AND 
MANEUVER ITS PIECE INTO A SITUATION 
WHERE IT WILL BECOME TRAPPED. 

THE COMPUTER'S PIECE WILL BE A 
SOLID BLOCK, YOURS 

WILL BE TWO SMALL BLOCKS, 
CHR$(179). THE COMPUTER WILL MOVE 
ITS PIECE ALL AROUND THE GAME 
BOARD, CHANGING DIRECTION WHEN IT 
SENSES AN OBSTACLE. YOU WILL 
FOLLOW THE COMPUTER'S PIECE OR 
YOU CAN MANEUVER IT TO A SECTION 
OF THE GAME BOARD WHERE IT WILL BE 


PRESS ENTER? 
TRAPPED, MEANING IT CAN ONLY MOVE 
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INSTRUCTIONS 
N PLAYERS’ NMS 


INITIALIZE 
SOUND AQUTINE 


HK 


INITIALIZE 
VARIABLES 


OUTPUT OUTER- 
INNER GRAPHICS 
SELECT 
START POSITION 
MOVE COMPUTER 
PIECE 


GET USEA 
MOVEMENT 


SOAT 
POINTS 


CONTINUE MOVE 
COMPUTER PIECE 
- CR - = 1000 
RECHARGE COMP 
PIECE 


Flowchart for Trapped. 


OUTPUT PLAYERS 
AND SCORES 


N 
ADVANCE TO 
NEXT PLAYER 


LEFT AND RIGHT. THE COMPUTER'S PIECE 
WILL CONTAIN A ‘CHARGE’ IF YOU 
SIMULTANEOUSLY END AT THE SAME SPOT 
THAT THE COMPUTER DOES, YOU'LL 

GET BURNED. SIX BURNS AND YOU'RE 
OUT OF THE GAME. YOU WILL MOVE 
YOUR PIECE USING ALL FOUR ARROW 
KEYS. WHEN YOU MOVE THE COMPUTER 
WILL BLANK ITS PIECE. YOU 

WILL BE ALLOWED ONLY 10 CON- 
SECUTIVE MOVES AT ONE TIME. 

ANYTIME YOU WISH TO MOVE YOUR 
PIECE, HOLD DOWN ANY ARROW KEY 
AND PRESS THE SPACE BAR. 
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MRA ‘NN \ 

WRRNAAY 
\ NS 
\ \ AS 


. 
SA SESE 


N 


PRESS ENTER? 


POINTS WILL BE DETERMINED BY HOW 
MANY MOVES IT TAKES YOU 

TO TRAP THE COMPUTER'S PIECE. 
REMEMBER, TO TRAP THE COMPUTER'S 
PIECE, ONLY ALLOW IT TO MOVE 

LEFT AND RIGHT. 


PRESS ENTER TO START? 


Program Listing 


110 REH PROGRAM TITLE: « TRAPPED > 

20 CLS:CLEAR 100:DIM AA(12),PI(12),1$¢12) 
30 PRINT CHR$(183);" TRAPPED ";CHRS(187) 
40 PRINT: INPUT"LIST INSTRUCTIONS"; W$ 

50 IF WS="Y" OR WS="YES" THEN GOSUB 3500 
60 CLS:GOSUB 3300:TU=1 

70 QGQQ=1:MM=0:CR=0: RANDOM 

80 POKE 16526,0:POKE 16527,122 

90 $1=31265:S52=Si+1:CC=0: BR=0:TP=1E+04:TR=TP 
100 REM BORDER GRAPHICS 
110 X=15360:Y=%+63:C=191:U=0 
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120 
130 
140 
130 
160 
170 
189 
190 
195 
198 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
g99 
360 
370 
380 
390 
393 
400 
4095 
410 
qi 
420 
925 
930 
440 
442 
949 
430 
460 
470 
480 
490 
200 


FOR I=XTOY:POKE 1,149 

POKE 1+960,149:NEXT 

FOR T=X+64 TO X+INT(Y¥Y/19)+95 STEP 64 
POKE 1I1,149:POKE 1+63,149:NEXT:GOSUB 3450 
REM INNER GRAPHICS 

IN=X+128 

R=IN+RND(40):Ri=R: LeRND(2 ) 

FOR I=IN TO R:POKE I,C 

IF L=1 AND U<=3 THEN POKE [+64,C 
NEXT } 
R2=RND(7):R3=sR2+RND(15):GOTO $00 

FOR I[=R1+R2 TO R1+R3 

POKE 1,C:NEXT 

GOTO 560 

U=U+1 

IF U()3.THEN 180 

REM GRAPHICS FROM RIGHT SIDE 

FOR J=1TO RND(10) 

FOR I=0T04 

IF R¢CI)=0 THEN 310 

POKE R(I),C:R¢I)=R¢ 1) -1 

NEXT I,J 

REM START POSITION 

P=RND(16255) 

IF P¢2=19425 THEN 330 

IF PEEK(P)(>32 OR PEEK(P+2)()32 THEN 330 
IF (PEEK(P-64)+PEEK(P+64))=382 THEN 330 
CP=P+2:POKE P,143:POKE CP,179 

REM MOVEMENT OF COMPUTER PIECE 
§3=210:S4=25 

IF PEEK(P+64)=32 THEN Az=1:GOTO 440 
POKE S1,30:POKE S2,190: X=USR(0) 

IF PEEK(P-64)=32 THEN Az=2:GOTO 440 
POKE S1,30:POKE S2,200: X=USR‘(0) 

IF PEEK(P-2)=32 THEN A=3:GOTO 440 
POKE $1,30:POKE S2,53:X=USR(0) 

IF PEEK(P+2)=32 THEN A=4:GOTO 440 
POKE S1,30:POKE $2,53:X=2USR(0) 


GOTO 810 

POKE P,32:I1F PEEK(CP)=32 THEN 1700 
XS=INKEYS:1F X$=" “ THEN 900 

GOTO 1100 


ON A GOTO 460,470,480,490 
P=P+64:POKE P,143:MM=0:GOTO 710 
PoP-64:POKE P,143:MM=z0:GOTO 4100 
P=P-2:POKE P,143:GOTO 760 
P=P+2:POKE P,143:GOTO 420 

REM WITHIN LIMITS (BOARD GRAPHICS) 
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910 IF ABS((Ri+R3)-IN)>=60 THEN 200 

220 REM GAP TOO SMALL 

Y90 IF ABS((R1+R2)-R)(=4 THEN 200 

9940 IF R3<=9 THEN 200 

930 GOTO 210 

260 REM POKE MORE TO RIGHT 

970 IF ABS((IN+63)-(R14+R3))>=10 THEN 600 
980 X=X+C+i:IN=X+128:POKE IN,C 

290 GOTO 240 

600 R4=RND(8):IF R4¢=3 THEN 600 

610 R4=R4+R1+R3 

620 RO=R4+RND(19? 

630 IF ABS(RS-R4)(=2 THEN 620 

640 IF ABS(RS-IN)}=62 THEN 680 

690 FOR I=R4 TO RO:POKE 1,C 

660 IF L=1 AND U¢)4 THEN POKE 1+64,C 
670 NEXT 

680 REM VARIABLES (RIGHT SIDE GRAPHICS) 
690 FF=IN+62:R(U)=FF:N(U)=ABS(FF-R5) 
700 GOTO $80 

710 REM DOWN / UP ~ SEARCH LEFT / RIGHT 
720 IF PEEK(P-2)=32 THEN 410 

730 IF PEEK(P+2)=32 THEN 420 

740 IF A=1 THEN 390 

730 GOTO 400 

760 REM LEFT / RIGHT - SEARCH DOWN / UP 
770 IF PEEK(P+64)=32 THEN 390 

780 IF PEEK(P-64)=32 THEN 400 

790 IF A=3 THEN 410 

800 GOTO 420 

810 REM TRAPPED (COUNTER) 

815 A(QQ)=A 

820 IF A(QQ)=A(QQ-1) THEN 880 

830 IF MM)=8 THEN 1240 

840 IF MM>=4 THEN S3=S53+10:CR=CR+10 

830 IF 53)=2259 THEN S3=255 

860 QQ=QQ+1:I1F QQ)=3 THEN QQ=1 

870 GOTO 390 

B80 IF PEEK(P+2)=179 OR PEEK(P-2)=179 THEN MM=MM+1! 
890 GOTO 830 

900 REM USER PIECE / MOVE PER KEY 

910 KE=PEEK(15340):REM SCAN KEYBOARD 
920 IF KE=136 THEN 970 

930 IF KE=144 THEN 990 

940 IF KE=192 THEN 1010 

950 IF KE=160 THEN 1030 

960 CC=0:GOTO 450 

970 IF PEEK(CP-64)()32 THEN 960 
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980 POKE CP,32:CP=CP-64:GOTO 1050 
990 IF PEEK(CP+64)()32 THEN 940 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
4120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1450 
1460 
1470 
1480 
1490 
1300 
1910 


POKE CP,32:CP=CP+64:GOTO 1050 
IF PEEK(CP+2)¢()32 THEN 960 

POKE CP,32:CP=CP+2:GOTO 1050 

IF PEEK(CP-2)¢()32 THEN 960 

POKE CP,32:CP=CP-2 

POKE CP,179:TP=TP-1! 

POKE S1,30:POKE $2,195: X=USR(0) 
REM USER'S MOVES (COUNTER) 
CC=CC+1:I1F CC)=10 THEN CC=0:CGOTO 450 
GOTO 900 

REM SOUND / COMPUTER PIECE 

REM CHARGE RATE (DIMINISH BY PLUS) 
POKE S1,30:POKE §S2,84:X=USR(0) 
CR=CR+1 

IF CR2=1000 THEN GOSUB 1450:GOTO 1180 
IF CR>=990 THEN S4=S4+10 

IF §4)2=253 THEN S$4=255 

GOTO 450 

REM RECHARGE COMPUTER PIECE 
POKE P,143:FOR C=l1 TO ((S54%2)-100) 
POKE S$1,30:POKE $2,15:X=USR(0) 
NEXT: CR=0°S4=25:POKE P,32 

GOSUB 1510:GOSUB 3450:GOTO 450 
REM TRAPPED ? 

REM CHECK CHARGE RATE FIRST 

IF CR)=925 THEN 1280 

GOTO 1290 

CR=1000:GOTO 137090 

REM TRAPPED COMP. PIECE 

L=0 

POKE P,32:FOR TI=1T0100:NEXT 
POKE P,143:FOR TI=i1TO30 

POKE S§1,30:POKE S2,20:X=USR(0) 
NEXT 

L=L+1:1F L¢=2 THEN 1310 

GOTO 1600 

GOSUB 1450:POKE P,32:MM=0 

P=P+6 

GOTO 490 

REM MESSAGE 

MG=16345 :M$="RECHARGING" 

FOR [=1TO LEN(M$ ) 

POKE MG,ASC(MID$S(M$,I1,1)) 
MG=MG+1:NEXT 

POKE MG,32:RETURN 

MG=16345 
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{920 
1530 
1940 
1590 
1600 
1610 
1620 
1630 
1640 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2100 
2110 
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FOR J=1TO LEN(M$) 

POKE MG,149 

MG=MG+1:NEXT 

POKE MG,149:RETURN 

REM MESSAGE (TRAPPED) 

MG=16345 

M$="*8 TRAPPED &*" 

GOSUB 1470 

GOTO 1910 

REM USER "BURNED" 

MG=16345 

M$="* USER BURNED *" 

GOSUB 1470 

REM LEAVE USER POSITION AS-IS 
L=0:MM=0 

POKE CP,32:FOR TI=1TO100:NEKT 
POKE CP,179:FOR Tl=1TO50 

POKE S1,30:POKE S2,18: X=USR(0) 
NEXT: IF L¢=1 THEN L=L+1:GOTO 1760 
BR=BR+1:GOSUB 1510:GOSUB 3450 
IF BR=6 THEN GOSUB 1830:GOTO 1870 


GOTO 449 
L=0 
FOR J=i1T045 


POKE 51,30:POKE S2,1+10 
X=USR(0) .NEXT.CLS: RETURN 


PRINT 

PRINT'"YOU'VE BEEN BURNED"; BR;"TIMES" 
PRINT"SUCKER !!'": TP=0 

PRINT" YOUR OUT OF THE GAME. .".COTO 2000 
REM TRAPPED 

GOSUB 1830 


PRINT" YA GOT ME TRAPPED, TURKEY !i!" 
PRINT" YOUR TOTAL POINTS NOW EQUAL "; 
PRINT TP 

PRINT"YOU MADE A TOTAL OF";TR-TP; "MOVES" 
PRINT"BEFORE TRAPPING ME... " 

FOKE §1,30:POKE §2,255 

X=USR(0) 

REM PLAYER ADVANCE / POINTS 
Pi(TU)=TP 

IF TU=N THEN 2100 

TU=TU+Il 

PRINT"KEY ENTER ";,1$¢TU); 

INPUT W5:CLS 

GOTO 70 

REM ALL PLAYED 

REM SORT AMTS / PLAYERS 


2120 
2130 
2140 
21950 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2290 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
23295 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3490 
3460 


IF N=1 THEN 2220 

F=0:AA=1 

IF PI(AA)+=PI(AA+1) THEN 2190 
P=PI(AA): PI(AA)=PI(AA+1) 
PI(CAA+1) =P: 1$=15 (AA) 

ISCAA) SIS CAA+1) : IS (CAA41 3215 
Fz! 

IF AACN THEN AA=AA+1:GOTO 2140 
IF F=1 THEN 2130 

GOTO 2260 


PRINT" YOU'VE PLAYED BY YOURSELF, AGAINST" 


PRINT"THE COMPUTER. YOU WERE BURNED";BR 


PRINT"TIMES. FINAL TRAPPING SCORE:";,PI(TU) 
GOTO 2330 

[=1 

PRINT"BEST TRAPPER ....“;1$(1) 

PRINT"TOTAL POINTS =",;,PI(T) 


PRINT" FOLLOWING ",1$(1) 

FOR [=2TON: PRINT I5(1) ; 

PRINT” WITH A SCORE OF: "; 

PRINT PI(1I) 

FOR TI=1TO1000:NEXT TI,! 

PRINT 

PRINT" END OF PROGRAM RUN. .... " 
FOR T=1TO100:POKE S1,30:POKE 52,1+20 
X=USR(0) : NEXT: PRINT 

PRINT" UNLESS ALL WANT TO PLAY AGAIN ???" 
PRINT"IF S50, TYPE RUN." 

PRINT: FOR Tl=1T01500:NEXT 

PRINT" END 

END 

REM PLAYERS (AMTS. / NAMES) 
PRINT“ ENTER NUMBER OF PLAYERS" 
INPUT N 

IF N¢(=0 OR N)=11 THEN 3310 
PRINT"NOW ENTER THE";N, "PLAYER'S" 
PRINT" FIRST NAMES” 

FOR I=1TON 

INPUT I$ (I) :NEXIT 

PRINT 

PRINT"CURRENT PLAYER'S NAME" 
PRINT"WILL BE PRINTED AT BOTTOM OF" 
PRINT"GAME BOARD..... " 

FOR T1=1T01200:NEXT 

CLS 

RETURN 

REM PLAYER 

MG=16348 
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3470 
3480 
3490 
3500 
3510 
3920 
3530 
3540 
3990 
3960 
3370 
35380 
3990 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3730 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 


FOR J=1TO LEN(I$(TU)) 

POKE MG,ASC(MIDS(1$(TU),1I,1)):MG=MG+1 
NEXT: POKE MG,32: RETURN 

REM INSTRUCTIONS 

PRINT" UP TO 10 PLAYERS CAN" 

PRINT"TRY TO OUTWIT THE COMPUTER AND" 
PRINT"MANEUVER ITS PIECE INTO A SITUATION” 
PRINT"WHERE IT WILL BECOME TRAPPED." 
PRINT"THE COMPUTER'S PIECE WILL BE A” 
PRINT"SOLID BEOCK, YOURS" 

PRINT"WILL BE TWO SMALL BLOCKS.";,CHRS$(179) 
PRINT'THE COMPUTER WILL MOVE" 

PRINT"ITS PIECE ALL AROUND THE GAME" 
PRINT"BOARD, CHANGING DIRECTION WHEN IT" 
PRINT"SENSES AN OBSTACLE. YOU WILL" 
PRINT"FOLLOW THE COMPUTER'S PIECE OR" 
PRINT" YOU CAN MANEUVER IT TO A -SECTION" 
PRINT"OF THE GAME BOARD WHERE IT WILL BE" 
INPUT"PRESS ENTER" ;,WS§:CLS 

PRINT"TRAPPED, MEANING IT CAN ONLY MOVE" 
PRINT"LEFT AND RIGHT. THE COMPUTER'S PIECE" 
PRINT" WILL CONTAIN A 'CHARGE'. IF YOU" 
PRINT"SIMULTANEOUSLY END AT THE SAME SPOT" 
PRINT" THAT THE COMPUTER DOES, YOU'LL" 
PRINT"GET 'BURNED'. SIX BURNS AND YOU'RE" 
PRINT"OUT OF THE GAME. YOU WILL MOVE” 
PRINT" YOUR PIECE USING ALL FOUR ARROW" 
PRINT"KEYS. WHEN YOU MOVE THE COMPUTER" 
PRINT"WILL 'BLANK' IT'S PIECE. YOU" 
PRINT"WILL BE ALLOWED ONLY 10 CON-" 
PRINT"SECUTIVE MOVES AT ONE TIME." 
PRINT"ANYTIME YOU WISH TO MOVE YOUR" 
PRINT"PIECE, HOLD DOWN ANY ARROW KEY" 
PRINT’ AND PRESS THE SPACE BAR" 
INPUT"PRESS ENTER";W$:CLS 

PRINT"POINTS WILL BE DETERMINED BY HOW" 
PRINT"MANY MOVES IT TAKES THE USER" 
PRINT"TO TRAP THE COMPUTER'S PIECE." 
PRINT"REMEMBER, TO TRAP THE COMPUTER’ S" 
PRINT"PIECE, ONLY ALLOW IT TO MOVE" 
PRINT"LEFT AND RIGHT " 

INPUT" KEY ENTER TO START" | W$ 

CLS5.RETURN 


Variables and Strings 
TU - Used in conjunction with user’s name to identify player 


QQ - 
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Used for left/right movement of computer piece 


MM - Number of times computer piece moves left and right before 
final entrapment by the user; used in conjunction with A(QQ) 

CR - Charge rate of computer’s piece 

91,$2 - For sound location, machine language routine 

CC - User’s number of moves per key closure 

BR - Number of burns player receives 

TP - Total number of points allowable: one deducted for each user 
move 

TR - Used in final message for number of moves player made before 
trapping computer piece 

X, Y,C,U - Used for graphics and the game board 

IN, R, R1, R2, R3, R4, R5, L, FF, R(U), N(U) - Determine the length and 
width of the inner poke graphics (left to right, right to left) 

P - Used to determine the starting location of the computer piece 

CP - Users start location, two more than the variable P 

93,$4 - Used in conjunction with computer piece for extra sound, 
along with variables $1 and S2 

A — Determines route that computer’s piece will take in conjunc- 
tion with P (peek) arguments 

KE - Key closure for user’s moves. The arrow key must be pressed 
in conjunction with space bar for correct entry 

L - Used again for the length of sound output 

MG - Poke location for print messages 

PI(TU) - For each players point amount, will return 0 (zero) if 
BR>=6 (user burned 6 times) 

I$(TU) - Player’s name, turn 

N - Number of players (total) 


Explanation of the Program Lines 


Line 50 checks the entry of W$ for the print of the instructions 
at lines 3500-3890. Lines 3300-3440 (a GOSUB) will allow the entry 
of up to 10 players and their names. 

Line 70 initializes some of the variables for each player. 

Line 80 initializes the machine language subroutine. 

Lines 90-150 poke the outer graphics and then branch to the 
subroutine in lines 3450-3490 for the printing of the current player's 
name within the graphics. 

Lines 160-310 establish the inner graphics. When the variable 
L=1, a larger (double CHR$(191)) will be poked. Lines 500-550 
work in association with these lines to keep the graphics within 
limits. Also used with the inner graphics are lines 560-670, which 
move the graphics more to the right. Finally, the game board 
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graphics use lines 680-700 to establish the variables for the inner 
graphics. 

Lines 320-360 select the computer’s start location randomly 
and establishes the user’s start location at two more than the 
computer's. The arguments contained here assure that the start 
location will be in a blank area and that no borders are above or 
below the start location. 

Lines 370-490 are used for the movement of computer’s piece 
and the sound output, which uses locations $1 and S2. These lines 
use a Search-ahead routine making sure the area ahead will be blank. 
Also used in conjunction with these arguments are lines 710-800, 
which assure that the computer’s piece will have an alternate route 
to take unless trapped. Lines 460 and 470, where MM = 0 (reset 
counter), insure that the computer will only be trapped in a left and 
right direction; j.e., it can only move left or right. 

Line 442 tests for the user’s key closure. Holding down any 
arrow key will branch the flow to line 900. If none of the arguments 
are met (holding down the space bar, along with the selected arrow 
key) the program branches back to the computer piece movement. If 
any of the conditions are satisfied, the program makes sure that 
movement ts toward a blank space, or else the movement cannot 
occur. 

Line 1050, where TP=TP-—1, subtracts one point for each 
move from the total of 10,000 points that the player is allowed. 

Line 1060 outputs the user’s sound. 

Lines 1070-1090 count the number of moves the player makes. 
These lines will only allow 10 consecutive moves at one time. When 
this counter reaches a count of 10, the program resumes with the 
computers movements in line 450. 

Lines 800-890 test to see if the computer’s piece is actually 
being trapped (line 880). If it 1s, the variable MM is increased by 
one. If the count reaches 4, the pitch of the computer’s sound will 
become higher and its charge will also increase. If the total count 
reaches 8 the computer’s piece is trapped, and program flow 
branches to line 1240. 

Lines 1100-1170 increase and test the computer's charge. If 
the charge rate is greater than or equal to 990, then the pitch will 
change for the computer’s piece. When the charge rate reaches 
1000, play comes to a halt until piece 1s recharged at lines 1180- 
1220. 

Lines 1240-1270 also test the charge rate of the computer’s 
piece. If it is greater than or equal to 925, the charge rate will 
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automatically become 1000. This will give the computer a break by 
advancing its piece 6 places to the right in lines 1280 to 1370. 

Lines 1290-1360 are used for the final trapping of the com- 
puter’s piece. Play will then branch to line 1600. 

Lines 1420-1820 are for the print messages at the lower part of 
the game board. They also test burn amounts (BR) that the user has 
received. If BR 1s greater than or equal to 6, program flow branches 
to line 1870, where the player loses all his points, and the next 
player is given a chance to play (if applicable). 

Lines 1910-1990 print the messages if the computer’s piece is 
trapped. 

Lines 2000-2060 advance to the next player, if the condition 
TU= N is not met. Scores points are also set with with subscripted 
variable PI(TU). 

Lines 2100-2200 sort all players according to their scores, 
placing the highest scorer first and so on. 

Lines 2220-2250 displays a message when there is only one 
player. 

Lines 2260-2410 print the players’ names and their scores. 

Lines 3300-3440 allow the entry of up to 10 players and their 
first names. 

Lines 3450-3490 print the player’s first name at the lower part 
of the game board when it is his or her turn. 

Lines 3500-3890 print the general instructions. 
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EVERYBODY THAT WANTED 
OFF ON THE FIFTH FLOOR— 
HERE IT IS! 


NOBODY WANTS 
OFF HERE!! 


ELEVATOR 


Guess what? You’ve been fired from your present job! Guess what 
else? The computer has hired you to be an elevator attendant! If 
you don’t have a sharp memory, you'll get paid nothing. You see, you 
must remember what is on every floor and who wants off there. 
Some of the customers might even give you some tips! All is not 
lost, not yet that is... Note that the IBM version of this program is 
included in Appendix A, and the Apple version in Appendix B. 


Sample Run 


«4 ELEVATOR ## 
INSTRUCTIONS REQUIRED (Y/N)?_Y_ 
FIRST NAME? FUZZY 


PRESENT OCCUPATION? BELLHOP 

YOU HAVE JUST BEEN FIRED AS A BELLHOP!! 
BUT, YOU ARE IN LUCK !! THE 

COMPUTER HAS JUST HIRED YOU TO 

BE AN ELEVATOR ATTENDANT. YOUR 

JOB WILL BE QUITE SIMPLE, FUZZY. 

ALL YOU HAVE TO DO IS REMEMBER 

ALL THE FLOORS (16 TOTAL) 
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AND WHAT IS CONTAINED ON EACH 
OF THEM, SO YOU CAN TAKE ALL 
OF MY CUSTOMERS TO THEIR 
RIGHT LOCATION..... 

PRESS A KEV... 


| ALMOST FORGOT TO TELL YOU, ALL 
CUSTOMERS, WHEN STEPPING ONTO THE 
ELEVATOR, WILL TELL YOU WHAT THEY 
WANT; THEY WILL ONLY TELL YOU THIS 
ONCE. FOR EVERY CUSTOMER YOU 
PLACE ON THE RIGHT FLOOR, YOU'LL 

BE PAID $10.00, THAT IS THE ONLY 

WAY YOU'LL GET PAID. CUSTOMERS 

WILL BE GETTING ON THE ELEVATOR 

AT DIFFERENT STOPS; YOU MUST 
REMEMBER THESE ALSO, FUZZY. 

PRESS A KEY... 

HERE ARE THE FLOORS AND TITLES: 

2) WOMEN’S CLOTHES 

3) MEN'S CLOTHES 

4) CHILDREN'S CLOTHES 

5) INFANT'S CLOTHES 
6) TOYS 

7) CARPETS 


8) COMPUTERS 
9) APPLIANCES 


10) FURNITURE 

11) HARDWARE SUPPLIES 

12) HOBBY SUPPLIES 

13) AUTO SUPPLIES 

14) OFFICE SUPPLIES 

15) BATHROOM ITEMS 

16) BEDROOM ITEMS 

YOU SHOULD BE ALL SET, FUZZY 
FUZZY, YOU NOW HAVE 7 CUSTOMER(S) 
GETTING ON MY ELEVATOR. 


THE CUSTOMERS’ DESTINATION(S): 
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COMPUTER FLOOR 

AUTO SUPPLIES 

CARPET FLOOR 

HARDWARE SUPPLIES 

HARDWARE SUPPLIES 

COMPUTER FLOOR 

INFANT’S CLOTHES 

PRESS A KEV... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 5. 

1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 7 

1 OF THE CUSTOMER(S) JUST 
STEPPED OFF OF MY ELEVATOR, FUZZY. 
PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 5. 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 17 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 10. 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

PRESS U FOR <UP> 
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PRESS D FOR <DOWN> 
THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 9. 

FUZZY NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 9. 

YOU ARE ON THAT FLOOR, FUZZY! 
PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: DOWN 

FLOOR NUMBER 8. 

2 OF THE CUSTOMER(S) JUST 


STEPPED OFF OF MY ELEVATOR, FUZZY. 


FUZZY YOU JUST HAD 5 MORE 
CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION(S): 
WOMEN'S CLOTHES 

CARPET FLOOR 

BATHROOM ITEMS 

BEDROOM ITEMS 

HARDWARE SUPPLIES 

PRESS A KEV... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 11 

3 OF THE CUSTOMER(S) JUST 


STEPPED OFF OF MY ELEVATOR, FUZZY. 


PRESS U FOR <UP> 
PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER .7Z 

IF YOU WANT TO GO UP, USE A 
HIGHER NUMBER THAN THIS FLOOR. 
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INSTRUCTIONS 
N 
CONTINUE 
INSTRUCTIONS 
READ 
DATA LIST 
PRINT NOS 
FLOOR TITLES 


GET C 
CUSTOMERS 


ET TITLES 
GSi(I 


PRINT C 
TITLES 


wee 


USER 
DIRECTION 


MESSAGE 


POKE FLOOR 
NUMBER-VIDEO 
STOP 
G K + 


Flowchart for Elevator. 


PRESS U FOR <UP> 
PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 12 

FUZZY, NO CUSTOMERS WANTED OFF 
ON THIS FLOOR... 

FUZZY, YOU JUST HAD 4 MORE 
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CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION(S): 
MEN’S CLOTHES 

FURNITURE FLOOR 

WOMEN’S CLOTHES 

GROUND FLOOR 

PRESS A KEV... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 
DIRECTION: UP 

FLOOR NUMBER 13. 

1 OF THE CUSTOMER(S) JUST 


STEPPED OFF OF MY ELEVATOR, FUZZY. 


FUZZY, YOU JUST HAD 4 MORE 
CUSTOMERS STEP ONTO THE 
ELEVATOR. THE DESTINATION(S): 
WOMEN'S CLOTHES 

WOMEN'S CLOTHES 

TOY FLOOR 

MEN’S CLOTHES 

PRESS A KEY... 

PRESS U FOR <UP> 

PRESS D FOR <DOWN> 

THEN ENTER THE FLOOR NUMBER. 


STOP 
This is not a complete run. 


Program Listing 


10 REM PROGRAM TITLE: ELEVATOR 

20 CLS: WS="SSRHSHE. HH" 

30 DIM F(60),F$(60),G5(60) 

40 RANDOM 

50 PRINT TAB(10)"%*%®% ELEVATOR ®kk" 
66 PRINT 

70 PRINT" INSTRUCTIONS REQUIRED (Y/N)"; 
80 INPUT I$:I1F I$="N" THEN N=! 

90 INPUT" FIRST NAME"; N$ 

100 PRINT: IF N=1 THEN 230 

110 INPUT“ PRESENT OCCUPATION"; PS§ 


120 PRINT"YOU HAVE JUST BEEN FIRED AS A "; 
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1295 
130 
140 
190 
160 
170 
180 
190 
200 
210 
220 
230 
240 
290 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
3995 
360 
370 
380 
370 
399 
400 
410 
420 
430 
440 
450 
460 
970 
475 
480 
490 
200 
910 
v 20 
u30 
240 
090 
260 
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PRINT P§,"/t" 

PRINT"BUT, YOU ARE IN LUCK !! THE" 
PRINT"COMPUTER HAS JUST HIRED YOU TO" 
PRINT” BE AN ELEVATOR ATTENDANT. YOUR” 
PRINT" JOB WILL BE QUITE SIMPLE, ";N5 
PRINT"ALL YOU HAVE TO DO IS REMEMBER" 
PRINT"ALL THE FLOORS (16 TOTAL)" 

PRINT” AND WHAT IS CONTAINED ON EACH" 
PRINT"OF THEM, SO YOU CAN TAKE ALL" 
PRINT"QF MY CUSTOMERS TO THEIR" 
PRINT"RiGHT LOCATION... " 

REM WHAT'S ON EACH FLOOR 

FOR T=2 TO 19:READ FS$(1I):NEXT 

IF N=1 THEN 370 ELSE GOSUB 2150:PRINT 
PRINT'I ALMOST FORGOT TO TELL YOU, ALL" 
PRINT"CUSTOMERS, WHEN STEPPING ONTO THE" 
PRINT"ELEVATOR, WILL TELL YOU WHAT THEY" 
PRINT'WANT, THEY WILL ONLY TELL YOU THIS" 
PRINT"ONCE. FOR EVERY CUSTOMER YOU" 
PRINT" PLACE ON THEIR RIGHT FLOOR, YOU'LL" 
PRINT"BE PAID $10.00, THAT IS THE ONLY" 
PRINT" WAY YOU'LL GET PAID. CUSTOMERS" 
PRINT"WILL BE GETTING ON THE ELEVATOR" 
PRINT’ AT DIFFERENT STOPS; YOU MUST" 
PRINT"REMEMBER THESE ALSO, ";N$,"." 
GOSUB 2150 

PRINT"HERE ARE THE FLOORS AND TITLES:" 
FOR I=2 TO 16 

PRINT 1,") ";,FSC1I), 

IF [=8 THEN TT=I*200:PRINT:GOSUB 21990 

IF I)=2 AND I{=5 THEN 440 

IF I)=6 AND I¢=10 THEN PRINT: GOTO 470 

IF T>=11 AND I[¢=14 THEN 450 

IF Id)=15 AND I¢(=16 THEN 460 

PRINT" “,F$(17):GOTO 470 

PRINT" ",F5(18): GOTO 470 

PRINT" ",FS(19) 

IF RX=1 THEN RETURN ELSE NEXT 

REM VARIABLE RX FOR FRINT ELEMENTS 

FOR I=1 TO 6.PRINT:NEXT.TT=TT+900 

GOSUB 2190:CLS:C=0.GK=0 

PRINT" YOU SHOULD BE ALL SET ";N$ 
TT=TT-900.GOSUB 2190:RX=1 

REM GET CUSTOMERS 

C=RND(PEEK(33)+1) 

PRINT N$;" YOU NOW HAVE";C;"CUSTOMER(S)" 
PRINT"GETTING ON MY ELEVATOR." 

BEM GET C RESPONSES 


970 I=1 

980 REM FLOOR NUMBER 

990 F=RND(PEEK(49)41):IF F=it THEN 990 
295 IF F=TF THEN 590 

600 FCI)=F:I=I+1 

610 IF I¢=C THEN $90 

620 REM FLOOR TITLES 

630 FOR I=i TO C 

640 G$(id=FS(F(I)) 

620 NEXT 

660 GOSUB 2190:PRINT 

670 PRINT"THE CUSTOMERS DESTINATION(S):" 
680 PRINT: FOR I=! TO C 

690 PRINT G$¢(1);""; 

700 FeFC1) 

710 IF Fd=2 AND Ft=5 THEN 760 

720 IF F)=1i!l1 AND FC=194 THEN 770 

730 IF Fd=15 AND FC(=16 THEN 780 

740 PRINT" FLOOR" 

730 NEXT:GOTO 790 

760 GOSUB 440:GOTO 750 

770 GOSUB 450:GOTO 750 

780 GOSJB 460:GOTO 750 

790 GOSUB 2150 

800 CLS 

810 PRINT"PRESS U FOR <UP)" 

820 PRINT"PRESS D FOR <«DOWN>" 

830 PRINT" THEN ENTER THE FLOOR NUMBER" 
840 NN=0:REM DIRECTION 

830 GOSUB 2160 

860 D$=A$:1F D$="U" D$="UP": GOTO 870 
869 IF DS="D" THEN D$="DOWN":GOTO 870 
868 GOTO 9750 

870 PRINT"DIRECTION: ";D$ 

880 PRINT" FLOOR NUMBER"; 

890 INPUT FR 

895 IF FR=1 AND TF=0 THEN 1280 

900 IF FR(1 OR FR)16 THEN 800 

905 IF FR=TF THEN 1280 

910 IF FR<(TF AND DS="UP" THEN 1260 

915 IF FROTF AND DS="DOWN" THEN V=1:GOTO 1260 
920 GOSUB 2190:CLS:REM PAUSE BEFORE START 
930 IF D$="UP“ THEN 970 

940 IF D$="DOWN" THEN 1040 

950 PRINT"SELECT A DIRECTION ";N$,"!!" 
960 PRINT:GOTO 810 

970 REM "UP" 

980 IF TF)=1? THEN 1030 
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9790 GOTO 1300 

1000 PRINT" YOU ARE ON THE ";T$;," FLOOR ";NS 
1010 PRINT" YOU CAN NOT GO ANY ",H$;,"!!" 
1020 GOTO 960 

1030 T$="TOP":H$="HIGHER" :GOTO 1000 

1040 IF TF¢(=1 THEN 1060 

1030 GOTO i070 

1060 T$="BOTTOM" :H$="LOWER": GOTO 1000 

1070 REM "DOWN" CONTINUED (MOVEMENT) 

1080 FS=P-512:NN=1 

1085 IF FF)=58 AND FF(=64 THEN 1220 

1090 POKE P,FF 

1100 FOR T=! TO 40:NEXT 

1110 POKE P,32:POKE P+1,32:P=P-64 

1120 IF P<>)FS THEN 1085 

1130 REM CONTINUE IF NOT ON FLOOR 

1140 IF TFC)FR THEN 1160 

1150 GOTO 1500 

1160 FS=F5-448 

1170 IF P¢=15390 THEN 1190 

1180 GOTO 1085 

1190 POKE P,32:POKE P+1,32:P=16350 

1200 FS=P-512:FF=FF-1:TF=TF-! 

1210 GOTO 1089 

1220 REM FLOORS ABOVE 9 

1230 POKE P,49:POKE P+1,FF-10 

1240 IF NN=i THEN 1100 

1250 GOTO 1340 

1260 PRINT"IF WANTING TO GO ";D$;", USE A" 
1265 IF V=1 V=0:PRINT"USE A LOWER NUMBER.":GOTO 1275 
1270 PRINT"HIGHER NUMBER THAN THIS FLOOR " 
1275 GOTO 1290 

1280 PRINT" YOU ARE ON THAT FLOOR, “;jNS;"}!" 
1290 GOSUB 2190:GOTO 800 

1300 REM "UP" MOVEMENT 

1310 IF TF=0 THEN 1460 

1320 FS=P+512:1F FS)=16350 THEN FS=16350 
1329 [F FF)=538 AND FF(=64 THEN 1220 

1330 POKE P,FF 

1340 FOR T=1 TO 30:NEXT 

1350 POKE P,32:POKE P+1,32:P=P+64 

1360 IF P< )FS THEN 1325 

1370 REM CONTINUE IF NOT ON FLOOR 

1380 IF TFE<)FR THEN 1400 

1390 GOTO 1500 

1400 FS=F5+448 

1410 iF P)=16350 THEN 1430 

19420 GOTO 1325 
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1430 POKE P,32:POKE P+!t,32:P=15390 
1440 FS=P+912:FFSFF+1:TF=TF+! 

19450 GOTO 1325 

1460 TF=1:P=15902:FF=49 

1470 FS=P+448:GOTO 1325 

1300 REM ON FLOOR REQUESTED 

1310 IF FF)=58 AND FF(=64 THEN 1530 
1920 POKE P,FF:GOTO 1540 

1530 POKE P,49:POKE P+1,FF-10 

1940 FOR I=1 TO C 

1950 IF FR=F(I) THEN 1570 

1360 NEXT:GOTO 1600 

1970 PA=PA+i0:KG=KG+1 

1980 FC(I)=0:XX=1 

1590 GOTO 1560 

1600 REM DID CUSTOMERS WANT OFF HERE 
1610 IF XX=0 THEN 1630 

1620 XX=0:GOTO 1770 

1630 PRINT N$," NO CUSTOMERS WANTED OFF" 
1640 PRINT"ON THIS FLOOR... .":NC=NC+1 
1649 HJ=HJ+1 IF HJ)=4 THEN HJ=0:F2Z=1 
1650 REM MORE CUSTOMERS STEPPING ON 
1659 AA=RND(2)-°1F JV=!1 THEN 1730 
1660 IF FZ=1 OR FR=1 THEN AA=1:FZ=0 


1670 IF AAs1l THEN 1690 

1680 GOTO 1730 

1690 YU=RND(5)-YY=sC:C=C+YU:C2=YU 

1700 IF C)=59 THEN JV=1:C=C-C2:GOTO 1730 
1710 REM GET DESTINATIONS 

1720 GOTO 1800 

1730 REM CONTINUE (IF NOT FINISHED) 

1740 KG=0:I1F GK)=C THEN 1940 

1750 GOSUB 2190 

1760 GOTO 800 

1770 PRINT KG;"OF THE CUSTOMER(S) JUST" 
1780 PRINT"STEPPED OFF OF MY ELEVATOR, "; 
1785 PRINT N$;" ":GOSUB 2700 

1790 GK=GK+#KG:GOTO 1650 

1800 REM YY MORE DESTINATIONS 

1810 YU=ABS(C-YY):IF GK)C THEN 1940 

1820 PRINT N$," YOU JUST HAD"; YU; "MORE" 
1830 PRINT"CUSTOMERS STEP ONTO THE" 

1840 PRINT“ELEVATOR. THE DESTINATION(S):” 
1850 KG=0:PRINT:FOR I=YY+i TO C 

1860 F=RND(PEEK(49) +41) 

1865 IF F=TF THEN 1860 

1870 IF Fei THEN F$(1)="GROUND":FZ=! 
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1890 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1969 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2900 
£310 
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F(T) 


=F:NEXT: REM FLOORS 


REM TITLE OF FLOORS 


FOR 
G$(I 
FOR 
GOTO 
REM 


Is¥¥+1 TO C 
YeFS(FCI)) NEXT 
T=Y¥+1! TO C 

690 
STOP / CONT 


PRINT: PRINT"YOU HAVE NOW COLLECTED: " 
PRINT USING W$;PA:PRINT:GOSUB 2190 


PRIN 
IF J 
GOSU 


T:GOSUB 2500 
V=1 OR GK)=C THEN 1990 
B 2190:GOTO 800:REM ALL NOT OFF 


PRINT: GOTO 2300 


REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
REM 
REM 
REM 
REM 
REM 
PRIN 
AS=] 
IF A 
RETU 
REM 
FOR 
GOTO 
REM 


DATA FOR FLOORS 
WOMEN'S ,MEN'S, CHILDREN'S, INFANT'S 
TOYS,CARPET, COMPUTERS 
APPLIANCES, FURNITURE, HARDWARE 
HOBBY ,AUTO,OFFICE 
BATHROOM, BEDROOM 
CLOTHES,SUPPLIES, ITEMS 
DATA ELEMENT 17 WILL BE USED 
WITH ELEMENTS 2 - § 
DATA ELEMENT 18 WILL BE USED 
WITH ELEMENTS if - 14 
DATA ELEMENT 19 WILL BE USED 
WITH ELEMENTS 15 & 16 
T:PRINT"PRESS A KEY " 
NKEY$ 
$="" THEN 2160 
RN 
TIME LOOP 
T=1 TO TT: NEXT 
2180 
CONTINUE ? 


PRINT"WOULD YOU LIKE TO TAKE ON" 
PRINT"SOMEMORE CUSTOMERS ",NS 
PRINT" YOUR TOTAL EARNINGS: ",; 
PRINT USING WS; PA, 

INPUT A$ 


IF A 


$()"Y" AND AS()"YES" THEN 2400 


TT=2000: JV=0:PRINT 

PRINT" YOU ARE ON FLOOR ";TF 
NC=0:G0TO 490 

PRINT 

PRINT" END OF ELEVATOR. " 

END 

REM POINT SCALE / PAY DEDUCTION 


IF NC<=0 THEN NC=0:RETURN 


2920 PRINT" YOU MADE";NC,"STOPS THAT WERE" 
2530 PRINT"NOT NECESSARY ";N$;". YOU" 
2340 PRINT"WILL TAKE A DEDUCTION IN PAY" 
2550 PRINT"OF $20.00 FOR EACH ONE OF" 
2560 PRINT"THOSE STOPS, TOTAL"; 

2570 NN=NC*20:PRINT USING WS,NN 

2580 PRINT"LEAVING YOU"; 

2390 PA=PA-NN 

2600 PRINT USING W$;PA:GOSUB 2190 
2610 RETURN 

2700 REM ANY TIPS ? 

2710 IF KG<=1 THEN RETURN 

2720 AA=RND(2) 

£2730 IF AA=i THEN RETURN 

2740 TI=RND(100) 

2750 PA=PA+TI 

2760 PRINT 

2770 PRINT" YOU'RE IN LUCK ";NS;", A" 
2780 PRINT"NICE CUSTOMER JUST GAVE" 
2790 PRINT" YOU A TIP OF"; 

2800 PRINT USING WS,TI 

2810 GOSUB 2190:RETURN 


Variables and Strings 


W$ - Used for all money amounts 

N$ - First name of user 

N - O/1 variable for list of instructions 
P§ - User’s current occupation 

FS I) - Titles of floors 

TT - Time (pause) loop 

RX - For print statements from data list 
C - Number of floors 

GK - Number of correct stops 

TF - Present floor number 

F(D - Number of each floor (random) 
G$(I) - Title of floor (random) 

FR - Input floor number 

D$ - Direction, up or down 

NN - For downward direction 

V - 0/1 conditional variable for print statements 
T$,H$ - For print statements 

FF - Floor number 

P,FS - Poke locations 

PA - Amount of pay 
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KG - Correct floor 

XX - 0/1 condition, correct floor 

NC - Counter, unnecessary stops 

HJ - Counter, user guessing 

FZ - Used in conjunction with HJ 

JV - Number of floors reached 

AA - Random 1 or 2 for selection of more patrons getting on the 
elevator 

YU - Random amount for more customers 

YY - For extra print elements (more customers getting on elevator) 

C2 - Equals the amount of YU. If C (floors) is greater than or equal to 
59, C will equal C minus C2 (the amount selected) 

YU - Used again as the ABS amount of C minus YY 

TI - Random amount for any tips user might receive 


Explanation of Program Lines 


Line 20 establishes the format in which amounts of money will 
be printed. 

Line 30 contains the dimension statements for the arrays 
containing the floors and their titles. 

Lines 50-360 display the general instructions if they are 
needed. 

Lines 370-480 prints all floor numbers and titles. These are 
only displayed for a predetermined amount of time (variable TT) so 
the user will be dependent upon his or her memory. 

Line 490 initializes the variables C and GK so that if the 
program is played more than once, these will be reset to 0 (zero). 

Lines 520-550 select a random number of customers, up to and 
including 10. 

Lines 560-610 select C floor numbers at random. The IF F=1 
THEN 590 in line 590 insures that floor 1 will not be chosen during 
the first selection process. The IF F=TF then 590 in line 595 
insures that the floor the user is currently on will not be chosen at 
the beginning of any round of play. 

Lines 620-650 select the titles of the floors. F$(F(D), and 
assigns these to G§(I). 

Lines 660-790 print all floor titles selected. The user will be 
allowed to study these titles for as long as he or she wishes. 

Lines 810-850 ask the user to input a direction, either down 
<D> or up <U>. If the variable NN is equal to 1, the direction will 
be downward. 


246 


Lines 860-865 set the contents of D$ to A$, which 1s the 
direction the user entered. 

Line 868 loops to a print statement in line 950 and then back to 
line 810, if the user does not select <D> or <U> for a direction. 

Lines 870-940 ask the user for a floor number (line 890, vari- 
able FR). 

Line 895 is used only at the beginning of play. If the user 
selects floor 1, program branches to a print staternent in line 1280 
and then back to line.800. 

Line 900 insures that selected floor number is not less than 1 or 
greater than 16. 

Line 905 branches to a print statement if the user inputs the 
current floor (TF) he or she is on. 

Lines 910-990 test each direction and the value of each floor 
number to see if they are coordinated. If they are not valid, the 
program will branch to a suitable print statement. 

Lines 1000-1060 are the print statements displayed if user 
tries to go below floor 1 or above floor 16. 

Lines 1070-1470 are used for the movements of the elevator 
floor numbers to simulate the motion of the elevator. These lines 
will either move elevator down or up and poke the floor numbers in 
the video memory. 

Lines 1500-1590 compare the current floor number with the 
floor number in memory F(l). If the selected floor does match, 
variable PA (for pay) is increased by 10; variable KG, for total 
correct floors, 1s increased by 1. Subscripted variable F(I) is then 
equal to 0 (zero), so that it is not matched again during the loop. 
Variable XX is then equal to 1 because a customer did want off on the 
inputted floor. 

Lines 1600-1620 test the value of the variable XX. If it is equal 
to 0 (zero), no customers wanted off. If it is equal to 1, one or more 
customers did get off. 

Lines 1630-1645 display the print statement indicating that no 
customers wanted off. 

Lines 1650-1700 select a number of additional elevator cus- 
tomers if AA 1s equal to 1. If the variable JV is equal to 1, the number 
of customers (variable C) has reached a limit of 59, and no more 
customers will be permitted on the elevator. Line 1670 tests the 
amount of AA. If it is equal to 1, the program will branch to line 1690, 
where up to 5 more customers will be allowed onto the elevator. 

Lines 1710-1720 branches to line 1800 for the additional 
(YY¥Y+1 TO C) destinations. 
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Lines 1730-1760 continues the program if there are still cus- 
tomers who want to go to a certain floor. 

Lines 1770-1790 display the message telling the user how 
many customers got off of the elevator. Line 1785 branches to a 
GOSUB to see if the user might have received a tip. 

Lines 1800-1840 display the message telling the user how 
many customers stepped onto the elevator. 

Lines 1850-1930 select the number of floors and their titles. 
The program then branches back to line 690 for the printing of the 
titles. This loop begins at line 1920 and terminates at the next 
Statement in line 650. 

Lines 1940-1990 print the total amount the user has collected 
and then branch to line 2500 to see if the user had made any 
unnecessary stops. If he did, the total number of unnecessary stops 
is multiplied by 20 and deducted from his or her total pay. Line 1970 
tests variables JV and GK. If neither conditions is met, the program 
resumes at line 800 (direction/floor entry). If either condition 1s 
met, the program branches to line 2300. 

Lines 2300-2420 continue or stop the program, print the user’s 
total earnings, and ask if he or she would care to earn more. 
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FAREWELL 


With a quick eye you'll follow the asterisk to the computer's 
selected location within a 6 by 5 matrix of letters. All you’ll need to 
do is tell the computer what letter location it landed on. Get it right 
and you'll gain 1000 points; get it wrong and you'll lose the same 
amount. Land on a cobra location...and you're dead! Note that the 
IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


+44F AREWELL++* 


NUMBER PLAYING (1-10)? 2 
THE 2 PLAYERS FIRST NAMES 
? MAC 

? SARAH 


ANY OF YOU NEED TO SEE 
THE INSTRUCTIONS? YES 
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NUMBER OF 
PLAYERS 


A<1 


OR 
Y A>10 


N 
PLAYERS’ 
NAMES 


Y 
PRINT 
INSTRUCTIONS 


SET 26 LETTERS 


ANOTHER 
PLAYER 
STOP 
N 


FINAL 
Y MESSAGE 


USER 


STRUCK-DECEASED 


Flowchart for Farewell. 
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SELECT A POSITION 
BY LETTER ONLY?— 


PLAYER: 


READ CAREFULLY, IT COULD MEAN 

YOUR LIFE (OR THE GAME!)... 

EACH PLAYER WILL SEE AND STUDY A 
MATRIX OF 6 BY 5 SQUARES OR 
POSITIONS, THESE WILL BE LABELED WITH 
THE LETTERS A THROUGH Z, WITH 

4 SPACES BLANK. TO PLAY: 

THE COMPUTER WILL SELECT 5 
POSITIONS AND PLACE COBRAS 

WITHIN EACH. THE COMPUTER WILL 
SHOW YOU WHERE 3 OF THE COBRAS ARE 
PRESS ENTER, PLEASE? 


NOW THE COMPUTER WILL SELECT A 
POSITION AND FLASH AN ASTERISK 
THERE. WHAT EACH PLAYER MUST DO 
IS ENTER THAT POSITION. IF YOU 

ARE CORRECT, YOU'LL GAIN 1000 
POINTS: IF INCORRECT, YOU'LL 
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LOSE 1000 POINTS. IF...YOU SELECT 

A POSITION WHERE A COBRA IS... 
YOU'RE OUT OF THE GAME, DEAD !! 
SELECTION OF POSITIONS WILL CON- 
TINUE FOR AS LONG AS EACH PLAYER 
WANTS, OR 21 POSITIONS HAVE BEEN 
OMITTED..... 

PRESS ENTER, TO START? 


Program Listing 


10 
15 
20 
es) 
30 
38 
40 
49 
20 
20 
60 
69 
70 
79 
80 
os) 
70 
99 
100 
109 
110 
115 
120 
129 
130 
135 
140 
145 
130 
159 
160 
16% 
170 
1793 
180 
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REM PROGRAM TITLE: FAREWELL 

CLS: RANDOM 

PRINT" ®**® FAREWELL 8%" 

PRINT 

INPUT"NUMBER PLAYING (i-10)";A 

IF A¢1 OR Ad10 THEN 25 
PRINT" THE" ;A; "PLAYERS FIRST NAMES" 

FOR I=i TO A 

INPUT Q5(1) :NE&T 

PRINT: U=1 

PRINT"ANY OF YOU NEED TO SEE" 

INPUT"THE INSTRUCTIONS" ;, 35 

IF §$¢)"¥" AND X$()"YES" THEN 210 

PRINT 

PRINT"READ CAREFULLY, IT COULD MEAN" 
PRINT" YOUR LIFE (OR THE GAME!!). ." 
PRINT"EACH PLAYER WILL SEE AND STUDY A" 
PRINT'MATRIX OF 6 BY 5 SQUARES OR" 
PRINT’ POSITIONS. THESE WILL BE LABELED WITH" 
PRINT" THE LETTERS A THROUGH Z WITH" 
PRINT"4 SPACES BLANK. TO PLAY:" 

PRINT" THE COMPUTER WILL SELECT 5" 
PRINT" POSITIONS AND PLACE COBRAS" 
PRINT"WITHIN EACH. THE COMPUTER WILL" 
PRINT"SHOW YOU WHERE 3 OF THE COBRAS ARE" 
INPUT"PRESS ENTER, PLEASE" ;,X5 

PRINT: PRINT: PRINT@64,CHRS$(30) 

PRINT"NOW THE COMPUTER WILL SELECT A" 
PRINT"POSITION AND FLASH AN ASTERISK" 
PRINT" THERE, WHAT EACH PLAYER MUST DO" 
PRINT"IS ENTER THAT POSITION. IF YOU" 
PRINT"ARE CORRECT YOU'LE GAIN 1000" 
PRINT’ POINTS; IF INCORRECT YOU'LL" 
PRINT" LOSE 1000 POINTS. IF...YOU SELECT" 
PRINT"A POSITION WHERE A COBRA IS..." 


185 PRINT"YOU'RE OUT OF THE GAME, DEAD !!" 
190 PRINT"SELECTION OF POSITIONS WILL CON-" 
195 PRINT" TINUE FOR AS LONG AS EACH PLAYER" 
200 PRINT"WANTS, OR 21 POSITIONS HAVE BEEN" 
205 PRINT"OMITTED... ." 

210 GOSUB 220: INPUT"PRESS ENTER, TO START"; X$ 
215 CLS:GOTO 300 

220 DIM L$(91),P(¢31),L(31) 

229 REM LETTERS: ? CHR$(23) 

228 IF SL(>0 PRINT“ ARRANGING LETTERS..." 
230 L=69:T=1:PZ=1000 

235 LSC I )=CHRS(L): LCI) =] 

240 IF I=27 THEN 2595 

245 I=s=I+1:L=L+1:GOTO 235 

290 GOTO 235 

299 REM SORT LETTERS RANDOMLY 

260 J=l 

265 N=RND(I-1) 

270 IF L(N)=0 THEN 265 

279 L$(J)=CHRS (N+649) 

280 L(N)=0: JesJ+il 

289 IF J=I RETURN 

290 GOTO 265 

300 REM POSITIONS 

303 P=10:IT=1:PL=P+128: J=1 

310 PCI) =P:L(I)=!I 

915 P=P+6:T=I41:J=J+1 

320 IF I=27 THEN 345 

325 IF J=? THEN 335 

330 GOTO 310 

335 P=PL:PL=PL+128: J=1 

340 GOTO 310 

343 REM THE REMAINING 4 

350 LS(I =" “":PCISP: LCI) =I 

395 P=P+6:lT=I14+1:JeJ3+!1 

360 IF J=7 THEN 370 

365 GOTO 350 

370 REM MOVE THE 4 BLANKS 

379 Teil: J=1:L=27 

380 N=RND(26) 

385 IF L(N)=0 THEN 380 

390 FS=LS(N):LS(N)=L$(L) 

395 LS(LI=FS:L(N)=0 

400 L=L+1:IF L=31 THEN 410 

403 GOTO 380 

410 REM NOW PRINT LETTERS 

419 CLS:FOR I=1 TO 30 

420 PRINT@P(I1),L$¢(1);:NEXT 
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423 REM FINAL GRAPHICS 

430 X=16 

435 FOR Y=0 TO 28 

440 SET(X,Y¥) : NEXT 

443 K=X+12 

9430 IF X=100 THEN 460 

455 GOTO 435 

460 FOR X=16 TO 88 

465 SET(&,Y¥) : NEXT 

470 Y=Y-6 5 

480 IF Y=-3.5 THEN 490 

485 GOTO 460 

490 REM COBRA POSITIONS / PLAYER 

495 C=1:PRINT@832,"PLAYER: ";Q5(U); 

200 N=RND( I-95) 

905 IF LC(N)=0 OR L(N)=100 THEN $500 

910 CB(C)=P(N): FS=LS(N) :CS(C)=FS$ 

vid LS (N)=CHRS(42):L(N)=100 

920 IF C=3 THEN 560 ELSE IF C(=3 GOSUB 530 
929 C=C+1:GOTO 500 

9390 XX=0:REM DEFINE 3 (1 FOR COMPUTER) 
935 PRINT@P(N),LS(N);:FOR T=1 TO 100:NEXT T 
240 PRINT@P(N)," "“; FOR T=1 TO 50:NEXT T 
949 PRINT@P(N) ,FS; 

3950 IF XX¥¢=0 THEN XX=XX+1:GOTO 335 

999 RETURN 

¥60 REM COMPUTER SELECT (IF NOT DONE) 
969 SL=1:W=k%7+25 

979 IF SL)=22 THEN 1000 ELSE GOSUB 1200 
985 PRINT@W,"I WILL SELECT A POSITION" 
290 N=RND(L-1):GOSUB 1240 

093 IF L(N)=0 OR L(N) 2100 THEN 590 

600 FS=LS(N): IF SL=1 THEN GOSUB 530 

605 CS=FS:NU=N:GOSUB 1300:GOSUB 1200 
610 PRINT@W, "SELECT A POSITION ";,Q$(U); 
613 PRINT@W+649,"BY LETTER ONLY"; 


620 INPUT L$ 
625 I=1 


635 IF L$=L$(1) THEN 665 

64) I=] +1 

635 IF I)=31 THEN 675 

660 GOTO 635 

669 N=I:F$=L$:GOSUB 530 

670 GOTO 800 

675 REM COBRA POSITION OR BLANK 
683 GOSUB 1200 

690 FOR I=1 TO § 

695 IF L$=C$(1I) THEN 735 


254 


709 
7195 
729 
739 
749 
739 
7638 
770 
800 
8095 
810 
815 
§20 
825 
830 
835 
840 
845 
850 
835 
860 
869 
900 
709 
910 
919 
920 
929 
730 
10600 
1005 
1010 
1019 
1020 
1029 
1030 
1035 
1040 
1049 
1090 
10995 
1060 
1100 
1105 
1110 
A1i4 
1120 
1125 


NEXT 

PRINT@W," YOU CANNOT SELECT A BLANK !!" 
GOSUB 1240:GOSUB 1200:GOTO 610 
REM COBRA 

PRINT@W,"YOUR DEAD ",Q8(U),;" !/9" 
PRINT@W+64,"THAT IS A COBRA POSITION !!" 
PRINT@W+128,""%*% FAREWELL **":GOSUB 1240 
Z2Z=1:GOSUB 1200:GOTO 1020 
GOSUB 1240:GOSUB 1200:IF L$¢()C%$ THEN 900 
PRINT@W, "CONGRATULATIONS ";Q$(U);"..." 
PRINT@W+64, "YOU'VE JUST GAINED"; PZ; 
PRINT" POINTS !!" 
REM POINTS / CONTINUE 
WCU) =WCU) +PZ 
PRINT@P(NU)," ", 
PRINT@872Z,"TOTAL POINTS: ",WCU); 
GOSUB 1240:GOSUB 1200 

PRINT@W, "YOU NOW HAVE"; W(U); "POINTS... " 
PRINT@W+64,Q5(U);".. CONTINUE (Y/N)", 
INPUT X$: IF X$="N" THEN 1020 
SL=SL+1:L(NU)=0:L$(NU)S" " 

GOTO 375 
REM WRONG POSITION 
PRINT@W,"WRONG POSITION ";Q5(U) 
PRINT@W+64,"YOU ARE NOW MINUS"; PZ; 
PRINT"POINTS.. ":GOSUB 1240 
GOSUB 1200:W(U)=W(U)-PZ 
PRINT@872,"TOTAL POINTS: ";W(U); 
GOTO 610 

REM FINAL / ANOTHER PLAYER 

GOSUB 1240:GOSUB 1200 

PRINT@W, "THAT'S IT ",Q$(U);". YOU'VE" 
PRINT@W+64,"REACHED THE LIMIT..." 
PRINT@W+128,"ENTER. .PLEASE",; 

INPUT X$:CLS 

IF ZZ=1 THEN ZZ=0:GOTO 1040 

T(U) =WCU) 

U=U+1:1F UA THEN 1100 

PRINT Q$(U)," YOU ARE NEXT..." 

PRINT" KEY ENTER WHEN READY", 

INPUT X$:CLS 

GOSUB 225:GOTO 300 

REM FINAL / SCORE RESULTS 

PRINT" PLAYERS AND POINTS: " 

FOR [=1 TO A 

PRINT Q$(1);" TOTAL POINTS: ";T(1) 
NEXT 

PRINT 
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1130 PRINT"PROGRAM TERMINATED....." 
1135 END 

1200 REM CLEAR PRINT AREA 

1210 PRINT@W,CHRS (30) 

1220 PRINT@W+64,CHR$(30) 

1230 RETURN 

1240 REM TIME DELAY 

1250 FOR Ti=1 TO 1200:NEXT 

1260 RETURN 

1300 REM FLASH SELECTION COURSE 
1309 FOR I=1 TO NU 

1310 IF L$§¢T)="*" OR LS(1)=" " THEN 1330 
1315 PRINT@P(I),"%", 

1320 FOR Ti=i TO 10:NEXT TI 

1325 PRINT@P(I),L$¢1); 

1330 NEXT I 

1335 RETURN 


Variables and Strings 

A - Total number playing (1-10) 

U - Used for subscripted variables, strings, players and points 
L&C) - Letters, asterisks, blanks 

P(I) - Position, Print @ areas 

L(D - For deletion of letters after use 

SL - Number of letters used 

L. - For letters 

PZ - For points 

J - General purpose, random count of letters, positions 
P - Positions, placed into subscripted variable PI) 

PL - To advance variable P two lines, when J= 7 

N - Random selection variable 

F§ - Contents of L$() 

Q$(U) — Current player 

C, CB(I), C$) - Cobra positions, a total of five 

NU - Selection by computer for the location 

ZZ, - Indicates user killed by cobra, no points 

W(U) - User’s total score 

T(U) - User’s final score if ZZ = 0 


Explanation of the Program Lines 


Lines 30-55 allow up to 10 players’ first names to be entered. 
Lines 60-210 display the instructions, 1f they are needed by any 
player. 
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Lines 220-250 place the 26 letters of the alphabet in the sub- 
scripted string L$, and set the subscripted variable L to the value of 
I for random selection. 

Lines 255-290 arrange the 26 letters randomly. 

Lines 300-340 set the 26 positions at which the letters will be 
placed (Print @ areas). 

Lines 345-365 set the remaining four spaces as blanks. 

Lines 370-405 replace the four blank spaces with randomly 
selected letters. Where these letters were, there are now blank 
spaces. 

Lines 410-420 print all letters and blank spaces. 

Lines 425-485 produce the final X,Y graphics for the 6 by 5 
matrix. 

Lines 490-525 select five cobra positions and flash three of the 
positions with asterisks. 

Lines 530-555 display the position selected by the computer 
and the selection given by the user. 

Lines 560-605 cause the computer to select a random position, 
IF SL< =21. The first selection is shown by a flashing asterisk. The 
program then branches to lines 1300-1335 where asterisks are 
flashed rapidly from top position to the position selected by the 
computer. 

Lines 610-1060 get the user’s selection and determine if the 
entry 1s acorrect guess, ablank, or acobra position. If it is incorrect, 
the user will have 1000 points deducted from his or her score. If it is 
a blank, the user will be asked to try again. If it is a cobra, the user 1s 
automatically terminated. Correct entries that match the comput- 
ers, are worth 1000 points each. 

Lines 1100-1135 print all the players’ names and their scores. 

Lines 1200-1260 are routines used to clear Print @ areas for 
messages and to cause time delays for the reading of the messages. 
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Sleep 5 Sleep 
}more ff } today 
° ] 


INSOMNIA 

Having trouble sleeping? The computer will try and solve that 
problem through using its graphics. This program is not intended to 
help people with severe sleep disorders nor should it be used by 
people who hypnotize easily. Note that the IBM version of this 
program is included in Appendix A, and the Apple version in Ap- 
pendix B. 
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START 


MESSAGE 
BEFORE START 


| PHASE | 


<S 


| PHASE II 


<4 


Y 


PHASE IIl 


MESSAGE 
END OF RUN 


Flowchart for /nsommnia. 
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Program Listing 


10 
20 


30 
40 
50 
60 
70 
80 
90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

400 

410 

420 

430 

440 

450 

460 

470 
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REM PROGRAM TITLE: INSOMNIA 
CLEAR 200:CLS 


PRINT" INSOMNIA" 

PRINT 

PRINT"SO YOU ARE HAVING PROBLEMS” 
PRINT"SLEEPING. JUST SIT BACK, KEEP” 
PRINT" YOUR EYES ON THE VIDEO AND" 
INPUT"PRESS ENTER";X:CLS 
A=30:W=0 

PRINT: PRINT TAB(A)":", 

PRINT TAB(A-1)":";TABCA+1)"°"; 
I=RND(2) 

IF JT=i THEN 160 

IF Ad=60 THEN 170 

A=A+2:GOTO 180 

IF At=10 THEN 150 

A=A-2 

W=W+1:1F Wei THEN 350 

IF W=700 THEN 210 

GOTO 1900 

IF W(=800 THEN 230 

GOTO 250 

PRINT 

W=W+1:GOTO 210 

PRINT’GETTING SLEEPY NOW ??7?2?" 
FOR I=! TO W: NEXT 

IF W¢(=814 THEN 290 

GOTO 300 

PRINT: W=W+1:GOTO 270 

FOR X=0 TO 127 
SET(X,0):SET(X,47) :NEXT 

FOR X=1 TO 46 
SET(O0,X%):SET(127,X%) :NEXT 

FOR I=1 TO W:NEXT:W=0:GOTO 400 
PRINT@990,; 

PRINT"KEEP EYES HERE", 

GOSUB 600 

GOTO 190 

L=62:A=65:X=897:Y=A 
AS=STRINGS(L,L*®2+7) 
PRINT@A,AS; 

PRINT@X,AS; 

AS=STRINGS(L, 32) 

PRINT@A,AS; 

PRINT@X,A$; 

A=A+64:X¥=X¥-64:I1F A=513 THEN 530 


480 IF X=Y THEN 900 

490 GOTO 410 

500 IF W¢=50 THEN 920 

910 GOSUB 600:GOTO 610 

920 W=W+1:IF W=25 GOSUB 380 

929 GOTO 400 

9390 IF W)1 THEN 480 

340 PRINT@A-45,; 

5930 PRINT"STARE AT THIS LOCATION", 
360 GOSUB 600 

970 GOTO 480 

280 PRINT@A-429, , 

990 PRINT"NOW FOLLOW THE BARS"; 

600 FOR I=1 TO 1000:NEXT: RETURN 

610 CLS 

620 PRINT" IF YOU ARE NOT GETTING SLEEPY" 
630 PRINT" HY NOW, YOU'RE A HOPELESS" 
640 PRINT"CASE !/1" 

630 GOSUB 600:PRINT 

660 PRINT“"THIS I5 THE LAST PHASE OF" 
670 PRINT" INSOMNIA. IF IT FAILS, RUN" 
680 PRINT"THE ENTIRE PROGRAM ONCE" 
690 PRINT"AGAIN... ." 

700 GOSUB 600:PRINT 

710 PRINT" KEEP YOUR EYES ON THE MOVING" 
720 PRINT" BLOCK, THINKING TO YOURSELF" 
730 PRINT"I AM GETTING SLEEPY....." 
740 INPUT"KEY ENTER"; X:W=0 

730 CLS: PS=STRINGS (2,191): AS=STRINGS (2,32) 
760 Y=61:FOR X=15 TO 26 

770 SETCY,X) : NEXT 

780 P=X+579 

790 GOSUB 1100 

800 FOR X=15 TO 26 

§10 RESETCY,X) : NEXT 

820 IF Z=1i THEN 930 

830 FOR X=15 TO 26 

840 SET(Y,X):Y=¥-1:NEXT 

850 GOSUB 1120 

860 P=P-64 

870 GOSUB 1100 

880 Y=61 

890 FOR X=19 TO 26 

900 RESET(Y,X):Y=Y-1:NEXT 

910 GOSUB 1120 

920 Z=1:GOTO 760 

930 GOSUB 1120 

940 FOR K=15 TO 26 
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950 SETC(Y,X%):¥=Yel : NEXT 
960 P=P+5:PRINT@P,PS; 
970 Y=61:FOR X=15 TO 26 
980 RESET(Y,X) 

990 Y¥Y=Y+1:NEXT 

1000 GOSUB 1120 

1010 W=W+1l 

1020 IF W=5 THEN 1050 
1030 IF W=50 THEN 1150 
1040 Z=0:GOTO 760 

1050 FOR X=46 TO 75 
1060 SET(X,14):SET(X,31):NEXT 
1070 FOR X=14 TO 31 
1080 SET(46,X):SET(73,X%) :NEXT 
1090 GOTO 1030 

1100 PRINT@P,PS; 

1110 RETURN 

1120 PRINT@P,AS; 

1130 RETURN 

1150 REM END OF PROGRAM 
1160 GOTO 1160 


Variables and Strings 


A - Tab locations for first phase 

W - General purpose counter 

I - A random amount, also for a time pause 

L - For putting character contents into a string 

A,X - Print @ locations for second phase of program 
Y - Contents of A for reset of graphics 

A$ - Characters for graphics 

P$,A$ - Characters for graphics for third phase of program 
Y - For set/reset locations in third phase 

P - Print @ locations (for block) 

Z - 0/1 variable for graphics 


Explanation of the Program Lines 


Lines 10-80 clear an amount of memory for graphic strings and 
display a short message before beginning the program. 

Lines 90-290 form phase 1 of the program. They print three 
colons at a random tab location. These will move up in a snake like 
fashion. 

Lines 300-590 form phase 2 of the program. Here, two bars 
move from the outside to the inside of a square, and then recycle. 

Lines 610-1090 form the final phase of the program. A pen- 
dulum is set to swinging. 
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} YOUR ENTRY WAS 
INCORRECT 


RAINY DAZE 


This program is designed for bad weather days, to make them 
worse! All you'll need do is maintain good eye contact with the 
video and follow the numbers. When you see a number that is out of 
order, press the clear key. That’s all there is to it. Oh yes, I almost 
forgot, the speed at which the numbers are printed across the 
screen gets faster and faster with each new line... Note that the 
IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


INSTRUCTIONS? YES 
PLAYERS? 2 

THE 2 PLAYER'S INITIALS 
? DF. 

? HJ. 


THIS PROGRAM IS DESIGNED TO 
HELP YOU THROUGH YOUR WORST 
DAYS BY MAKING THEM WORSE !! 
ACTUALLY THIS PROGRAM WILL 
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START 
NUMBER OF 
PLAYERS 
INITIALS OF 
PLAYERS 
| INSTRUCTIONS 
INITIALIZE 
VARIABLES 


Y 
CHANGE 


POINTS + 
POINTS 


Y 


ADVANCE 
PLAYERS 


Y 


CLOSING 
MESSAGE 
STOP 


Flowchart for Rainy Daze. 
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TEST YOUR ABILITY TO FOLLOW 
NUMBERS IN SEQUENCE. 

THE NUMERALS 1 THROUGH 660 WILL 
RACE ACROSS AND FILL THE VIDEO. 
WHEN A NUMERAL APPEARS THAT IS 
NOT SUPPOSED TO BE THERE, HOLD 
THE CLEAR KEY FOR A SHORT 
PERIOD UNTIL THAT NUMERAL IS 
BLOCKED OUT. 


PRESS ENTER? 


POINTS WILL BE GIVEN ON HOW 
MANY OUT-OF-SEQUENCE NUMERALS 
YOU HAVE DETECTED AT THE 

END OF THE COUNT. 

REMEMBER, YOU MUST HAVE GOOD 
EYE POINT CONTACT WITH THE 
VIDEO... 


D.F. YOU WILL NOW PLAY. 
PRESS ENTER, PLEASE? 


Program Listing 


10 REM PROGRAM TITLE: RAINY DAZE 
20 CLS 


30 INPUT" INSTRUCTIONS"; A$ 

40 INPUT"PLAYERS";P:IF P=0 THEN 40 

30 PRINT'THE";,P;"PLAYERS INITIALS" 

60 IF P)=i11 THEN 20 ELSE FOR I=1 TO P 

70 INPUT N$( 1): NEXT 

80 IF AS<¢)"Y" AND A$()"YES" THEN 340 

90 REM INSTRUCTIONS 

100 PRINT" THIS PROGRAM IS DESIGNED TO" 

110 PRINT"HELP YOU THROUGH YOUR WORST" 

120 PRINT"DAYS, BY MAKING THEM WORSE !!" 
130 PRINT"ACTUALLY THIS PROGRAM WILL" 

140 PRINT" TEST YOUR ABILITY TO FOLLOW" 

130 PRINT"NUMBERS IN SEQUENCE. " 

160 PRINT" THE NUMERALS 1 THROUGH 660 WILL" 
170 PRINT"RACE ACROSS AND FILL THE VIDEO." 
180 PRINT"WHEN A NUMERAL APPEARS THAT IS" 
190 PRiINT"NOT SUPPOSED TO BE THERE, HOLD" 
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200 
Z210 
220 
240 
230 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
920 
430 
940 
490 
460 
470 
480 
490 
200 
905 
210 
920 
930 
240 
290 
960 
270 
280 
390 
600 
610 
620 
630 
640 
630 
660 
670 
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PRINT"THE CLEAR KEY FOR A SHORT" 
PRINT" PERIOD UNTIL THAT NUMERAL 15S" 
PRINT" BLOCKED OUT." 

PRINT 

INPUT" PRESS ENTER"; X 

CLS 

PRINT"POINTS WILL BE GIVEN ON HOW" 
PRINT"MANY OUT-OF-SEQUENCE NUMERALS" 
PRINT" YOU HAVE DETECTED AT THE" 
PRINT" END OF THE COUNT." 
PRINT"REMEMBER, YOU MUST HAVE GOOD" 
PRINT"EYE POINT CONTACT WITH THE" 
PRINT"VIDEO...":PRINT 

T=1 

IF P=1 THEN 390 

PRINT N$(1I);" YOU WILL NOW PLAY " 
INPUT" PRESS KEY ENTER, PLEASE";X 
GOTO 410 

PRINT"“WHEN READY, “;,;N$(P);" PRESS" 
INPUT"THE ENTER KEY"; X 

CLS: RANDOM: N=0:N1=0:TT=250 
A=0:M=55:L=64:G=0 
K=PEEK(14440):GOTO 550 

PRINT@A,N; 

FOR T=1 TO TT+TT 

NEXT: A=A+9 

IF Ad=M THEN 490 

GOTO 430 
A=L:M=M+64:L=L+64:TT=TT-25:G=0 

IF L)=1023 THEN $20 

IF TT¢(=100 THEN TT=100 

GOTO 430 

FOR Tz=1 TO 1000:NEXT 

CLS 

GOTO 420 

REM CHANGE OR LEAVE 

IF K=2 THEN NJ=1:GOTO 690 

N=N+1 

N1=N1+1:I1F N1¢=2 THEN 610 
J=INT(RND(0)%2):IF G=l1 THEN J=0:N=N1 
IF J=! THEN Ne=N+1:Ge=1 

IF K=0 AND ABS(N-N1)¢)0 THEN Y=Y+1 
IF NJ=! THEN NJ=0:GOTO 640 

IF Nid>=661 THEN 800 ELSE GOTO 440 
Ni=Ni+i 

PRINT@A-5,STRINGS (53,1493); 

REM PAUSE BEFORE CONT. 

FOR Tz=1 TO 100:NEXT:K=0 


680 GOTO 440 

690 IF ABS(N-Ni)=0 THEN 710 

700 Y=Y-1:GOTO 720 

710 Y=Y¥+1 

7320 AL=PEEK(A~6+15360) 

730 A2Z=PEEK(A-8+15360) 

740 IF Ai=143 AND A2=143 THEN 760 

730 GOTO 620 

760 CLS: Y=¥+2 

770 PRINT"QUIT HOLDING DOWN THE CLEAR" 
780 PRINT'KEY !! LET GO YOU DINGY !! 
790 FOR T=1 TO 1200:NEXT:CiLS:GOTO 620 
800 REM PLAYER ADVANCE 

810 YY(I)=¥:Y=0:CLS 

820 I=I+1 

830 IF I1)P THEN NI=N1-1:GOTO 850 

840 GOTO 360 

830 REM FINAZ 

860 PRINT" PLAYERS AND THEIR POINTS" 
870 PRINT"ARE AS FOLLOWS: " 

860 FOR I=1 TO P 

890 PRINT N$C(I)," IDENTIFIED “,; 

900 IF YY¥(I)=0 PRINT“ALL NUMERALS.":GOTO 930 
910 IF ¥YYCI) <0 Y¥CI)=-¥Y(T) 

920 PRINT N1i-YY(1);, "NUMERALS. " 

730 NE&T 

940 PRINT 

950 PRINT"END OF PROGRAN. " 

960 END 


Variables and Strings 


P - Number of players 

N§$ I) - Player’s initials 

I - Current player 

N - Current digit 

N1 - Counter to change number 

TT - Time loop to cause a delay before the next number 1s printed 

A - Print @ locations for digits 

M,L - Largest Print @ areas (limits) 

G - O/1 for digit change 

K - Peek location for key closure 

J - Digit changed to 

Y - Correct / incorrect entries 

Al, A2 - For test to determine whether or not the user is constantly 
holding down the clear key 

YY(I) - User’s total points 
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Explanation of the Program Lines 


Lines 10-330 accept the number of players and their initials and 
display the general instructions. 

Lines 340-400 determine the current player. 

Lines 410-420 initialize the variables. 

Line 430 is used for user key closure. 

Lines 440-510 print the digits, changed or unchanged, test fora 
full video, and decrease the time loop. 

Lines 520-540 create a pause before clearing the video. 

Lines 550-680 leave current digit as it is or change it. If J is 
equal to 1 and G is equal to 0 (zero), the current digit will be 
changed. 

Lines 690-790 increase the user’s score if K is equal to 2 (clear 
key). They also test to see if the user 1s constantly holding down the 
clear key. 

Lines 800-960 advance to next player or terminate the program 
and print the player’s names and scores. 
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Games for Parties 
or Friendly Get-Togethers 


Amount on Board is similar to roulette but uses squares rather 
than a wheel. Here’s a way to experience the thrill of gambling at 
your own party. 

Lap-the-Track is another betting game. Whose bet will pay 
off in the great spot race? 

Partners challenges you to guess a word based on clues your 
partner gives you. 

From Point A to Point B is a different kind of maze game. 
You have to enter all your instructions before there is any move- 
ment at all. 

Injection makes you responsible for killing the bacteria that 
are multiplying out of control. 

Intercept commissions you to defend the domed city from 
alien intruders. Be careful. The high command disapproves when 
you kill friendly intruders. 
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LOOKS LIKE 
$500.00 


AMOUNT ON BOARD 


This game will allow you and up to 9 other players to place an 
amount of money on a square. These numbers will range from 0-9. 
Your initials will be placed on the numeral you have selected. If you 
plan to use real money, the computer will keep excellent tabs on all 
amounts. The computer also selects each number randomly, so it 
won't cheat anyone. 


Sample Run 


* AMOUNT ON BOARD «* 
INSTRUCTIONS BEFORE PLAY? YES 


THIS IS THE FIRST PROGRAM 

OF SIX THAT IS MADE FOR 
PARTIES OR WHEN FRIENDS 
GATHER LOOKING FOR SOMETHING 
DIFFERENT TO DO. THIS GAME 

IS SIMILAR TO ROULETTE, BUT 
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START 


INSTRUCTIONS 


NUMBER OF 
PLAYERS 


INITIALS OF 
PLAYERS 


GET DIGIT 
FROM PLAYER 


AMOUNT TO 
PLACE ON BOARD 


Y 


GRAPHICS 
PLAYING BOARD 


START/CONT. 
DIGIT ROTATION 


PRINT WINNER 
Y | AND AMOUNT 
N 


NO WINNER 
CARRY AMOUNT 


Flowchart for Amount on Board. 


2/2 


=_ 


AMOUNT ON BOARD $20.00 


WILL USE NO WHEEL. INSTEAD 
10 SQUARES (FROM 0-9) WILL 
BE USED. AT THE OPTION OF 
THE PLAYERS, REAL MONEY 
CAN BE USED. EACH PLAYER 
(UP TO 10) WILL ENTER A 


PRESS ENTER? 


NUMBER FROM 0-9 AND PLACE ANY 
BET (WITHIN REASON). WHAT- 
EVER THE COMPUTER LANDS ON 
DETERMINES THE WINNER. A 
PLAYER CAN DROP OUT OR BE 
ADDED DURING PLAY, BEFORE 
ANY BETS ARE PLACED. 


NUMBER OF PLAYERS? 2 


INITIALS OF THE 2 PLAYERS 
(WITHOUT SEPARATING PERIODS) 

? AD 

? FG 

YOUR NUMBER SELECTION AD 22. 
PLACE WHAT AMOUNT ON BOARD? 10 


YOUR NUMBER SELECTION FG? 6 
PLACE WHAT AMOUNT ON BOARD? 10 
AMOUNT ON BOARD 
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Program Listing 


i100 REM PROGRAM TITLE: AMOUNT ON BOARD 
110 CLEAR 200:RANDOM 


120 CLS: MS="$58,888. ##" -U=576 

130 PRINT"”* AMOUNT ON BOARD *" 

140 PRINT 

150 INPUT" INSTRUCT BEFORE PLAY" ,X$ 

160 IF X$="N" OR X$="NO" THEN 390 

170 PRINT 

{180 PRINT"THIS IS THE FIRST PROGRAM" 
190 PRINT"OF SIX THAT ARE MADE FOR" 

200 PRINT" PARTIES OR WHEN FRIENDS" 

210 PRINT"GATHER LOOKING FOR SOMETHING" 
220 PRINT"DIFFERENT TO DO. THIS GAME" 
230 PRINT"IS SIMILAR TO ROULETTE, BUT" 
240 PRINT"WILL USE NO WHEEL. INSTEAD" 
290 PRINT"10 SQUARES (FROM 0-9) WILL” 
260 PRINT"BE USED. AT THE OPTION OF" 
270 PRINT" THE PLAYERS, REAL MONEY" 

280 PRINT"CAN BE USED. EACH PLAYER" 

290 PRINT" (UP TO 10) WILL ENTER A" 

300 PRINT 

3i0 INPUT" PRESS ENTER"; X$§:CLS 

320 PRINT”"NUMBER FROM 0-9 AND PLACE ANY" 
330 PRINT”"BET (WITHIN REASON) WHAT-" 
340 PRINT" EVER THE COMPUTER LANDS ON" 
3590 PRINT"DETERMINES THE WINNER. A" 

360 PRINT" PLAYER CAN DROP OUT OR BE” 
370 PRINT"“ADDED, DURING PLAY, BEFORE" 
380 PRINT"ANY BETS ARE PLACED.": PRINT 
390 INPUT"NUMBER OF PLAYERS", P 

400 IF P<1 OR P10 THEN 390 

410 PRINT" INITIALS OF THE",P; "PLAYERS" 
415 PRINT" (WITHOUT SEPARATING PERIODS)" 
420 FOR i=0 TO P-1:INPUT I(T) 

430 NEXT 

440 REM GET NUMBER SELECT AND AMOUNT 
450 FOR J=0 TO 9:N(I) =I: PCI) =I: X¢(1)=0:NEXT 
460 N(0)=-99:1=0 

970 PRINT" YOUR NUMBER SELECTION ",1$(1); 
480 INPUT N: IF NiO OR N)Y THEN 470 

490 IF N(N>=0 THEN 510 

495 IP NW=0 THEN X(I)=N(0):GOTO 530 

900 K(J)=N.GOTO 530 

Yv10 PRINT"NUMBER ALREADY ENTERED." 

220 PRINT.GOTO 470 

930 IF N¢)0 THEN N(N)=0 
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940 
720 
260 
970 
280 
990 
600 
610 
620 
630 
640 
630 
660 


670 
680 


670 
700 
710 
720 
730 
740 
730 
760 
7790 
780 
790 
800 
810 
820 
830 
840 
$30 
8606 
870 
880 
890 
700 
910 
920 
930 
940 
930 
960 
970 
980 
990 


PRINT" PLACE WHAT AMOUNT ON BOARD"; 
INPUT ACI) 

IF ACI)¢i OR ACI))100 THEN $80 
GOTO 600 

PRINT" KEEP THE BET WITHIN REASON." 
GOTO 340 

[=I+1 

IF I>P-1 THEN 630 

CLS:GOTO 470 

REM TALLY AMOUNTS 

I=0 

A=A+A(T) 

T=I+1:-IF I)P-1 THEN 680 


GOTO 6950 
REM INCREASE WITH LEFTOVER 


A=A+M 

M=A 

A=0 

CLS:PRINT CHRS$(23) 

REM PLAYING BOARD 
BS=STRINGS(21,143) 
PRINT@4,B$;,:PRINT@196,85; 
PRINT@388,8$, 

J=4:-JA=40 JB=J+64 
PRINT@J,CHRS( 191), 

IF J)=JA THEN 810 

J=J+8 GOTO 780 

J=uB JA=JA+64: JB=JB+64 
IF JA>=424 THEN 840 
GOTO 780 

REM LOCATIONS OF DIGITS 
L=70 

FOR :=0 TO 4:Litdel 
L=L+8:NEXT 

L=262 

FOR [=95 TO 9:L¢T?8L 
L=L+8 NEXT:GOSUB 1600 
TM=-10:PRINT@448, ; 
PRINT"AMOUNT ON BOARD", 
PRINT USING M$;M 

REM START THE ROUND 
NI=RND( 19) 

I=0 

PRINT@L(1I),PCI), 

iF G=i AND JT=V THEN 1140 
IF I])=1 THEN 1040 


1000 FOR Y=! TO TM: NEXT 
1010 J=I+¢1 
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1020 IF J=10 THEN 1040 

1030 GOTO 970 

1040 PRINT@L(I-1)," ",; 

1050 IF [.=10 THEN 960 

1060 TM=TM+1.$ 

1070 IF TM>=80 THEN 1090 

1080 GOTO 1000 

1090 REM GET A NUMBER 

1100 iF G=i THEN 1080 

11106 Gel 

1120 V=INT(RND(0)*10) 

1130 GOTO 1080 

1140 REM WiN NUMBER 

$145 IF I=0 PRINT@L(9)," ";:GOTO 1155 
11530 PRINT@L(V~-1)," "; 

1155 FOR [I=0 TO $ 

1160 IF X(1I)¢)V THEN NEXT.GOTO 1230 
1169 I$=I1$9¢1I) IF I$="" THEN 1230 

1170 PRINT®U,; 

$180 PRINT'THE WINNER ";1$ 

1190 PRINT"WiNNING A TOTAL OF "; 

1200 PRINT USING M5;M 

i210 Wii7,=eWCI7+M.M=0 

1220 GOTO 1270 

1230 PRINT@U, ; 

1240 PRINT"SORRY, NO WINNER . “" 

1250 PRINT"THE MONEY STAYS IN THE" 

1260 PRINT"POT UNTIL WON. " 

1270 REM RECYCLE 

1280 PRINT: INPUT"PRESS ENTER, PLEASE";1$ 
i290 CLS:G=0 

1300 PRINT"STOP OR CONTINUE PLAY (S/C)"; 
13910 INPUT I$ 

1320 IF I$="S" THEN 1530 

1330 PRINT"ANY PLAYER WANT TO QUIT (Y¥/N)"; 
1340 INPUT I$ 

13950 IF I$="N" THEN 1445 

1360 INPUT" YOUR INITIALS, PLEASE";15 
1370 FOR I=0 TO P-1 

1380 IF I1$¢(I)=I1$ THEN 1400 

1390 NEXT:GOTO 1445 

1400 I1$¢T)="".REM SHUFFLE NAMES/AMOUNTS 
1410 FOR T=0 TO P-] 

194139 IF I$(T)="" THEN EX=1 

1420 IF EX=0 THEN TS(T)I=I$¢(T) :T¢(T)=W(T) : GOTO 1430 
1423 T$(T)=1$(T41):T¢T)=W(T4+1) 

1430 NEXT: EX=0.FOR T=0 TO P-1 

1433 19¢T)=T$(T) :-W(T)=T(T) 
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1440 NEXT: P=P-1 

14435 IF P)=10 THEN 1510 

1450 PRINT"ANY NEW PLAYERS (Y¥/N)", 
1460 INPUT I5 

1470 IF I$="N" THEN 1510 

1480 REM INITIALS 

1490 PRINT" YOUR INITIALS (WITHOUT PERIODS)", 
1300 INPUT I19(P):P=P+i 

1310 CLS 

1320 GOTO 440 

1930 REM ALL CHICKENED OUT 

1940 CLS 

1390 PRINT"PLAYERS AND AMOUNTS (YOU" 
1560 PRINT"SHOULD HAVE ON YOU !!)" 
1370 FOR I=0 TO P-1: PRINT I1$(1);%:",; 
1380 PRINT USING M$,W(I): NEXT 

13990 PRINT: PRINT"END ..": END 

1600 REM PRINT INITIALS AT LOCATION 
1610 FOR I=0 TO # 

1620 IF X(I)=0 THEN 1650 

1630 IF X(1)=-99 THEN 1660 

1640 PRINT@L(X(1))+64,18¢1),; 

1650 NEXT: RETURN 

1660 PRINT@L(0)+64,15(1),; 

1670 X¢(I)=0:GOTO 1650 


Variables and Strings 


M$ - Print of dollar amount 

P - Number of players 

I$(1) - Player’s initials 

N(I) - User’s number selection 

P(I) - Digits 0-9 

X(1) - User number selected 

A(I) - User entered amount 

A - Amount on board 

M - Any leftover amount, if not won 

B$ - For playing board (STRING$) 

J,JA,JB - Locations for Print @ for playing board 
L,L(D) - Location of the digits 

TM - Pause between the printing of the digits 
G,V - Computer select of digit 

WI) - User’s winnings 


Explanation of the Program Lines 
Lines 100-380 display the general instructions. 
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Lines 390-400 accept the number of players. 

Lines 410-430 accept the initials of the players, without 
separating periods. This is required so that the users’ initials can be 
printed in the numeral blocks they have selected. If the user adds 
the separating periods, part of the graphics will be lost. 

Lines 440-460 set subscripted variables to the numerals 1 
through 9. 

Lines 470-530 allow each user to input a number between 0 and 
9, 

Lines 540-620 allow each user to input an amount of money to 
place on board (any amount within reason). 

Lines 630-710 compile all amounts to determine the total on 
board. The variable M will be an amount that is carried over from a 
play nobody won. 

Lines 720-830 display the playing board. 

Lines 840-900 determine the locations of the digits 0-9. Each 
location selected by a user will show his or her initials. 

Lines 910-1080 form the main part of the program. All digits 
are flashed from left to right until TM>= 80. Then the computer 
stops at its preselected location. 

Lines 1090-1130 select a random number. 

Lines 1140-1220 print the winner, if there is one, and the 
amount he or she has won. 

Lines 1230-1280 are used when there is no winner. The 
amount on board will remain in the pot until it is won (variable M). 

Lines 1300-1320 allow any player to terminate the program. 

Lines 1330-1440 allow any player to drop out of the game if he 
or she so wishes. If a player does drop out, the names will be re- 
organized so they do not include the name of the player that 
dropped out. 

Lines 1445-1500 allow a new player to join the game, if there 
are less than 10 players. 

Lines 1510-1520 recycle the program with the new number 
selections and bets. 

Lines 1530-1590 display a message when all players have quit 
message and also show the amount each has won. 

Lines 1600-1670 form a subroutine that prints the initials of the 
players at the numeral they have selected. 
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AND IT’S SPOT ONE PULLING AWAY 


} 
FROM SPOT THREE WITH SPOT FOUR | 
RUNNING CLOSE TO SPOT TWO BUT 
CLOSER TO SPOT THREE WHICH IS | 
PULLING UP ON SPOT ONE | 


LAP-THE-TRACK 


You and 14 others can bet on one of four spots that will dash across 
your video in a race that will last 10 laps. There are programs of 
horse races, dog races, etc., so, you could call this a spot race. After 
selecting a lane and placing your bet, the four spots will begin 
darting across the video. The winner, naturally, will be the spot that 
completes the 10 laps first. Each spot will have an equal opportunity 
to win, dependent upon the random function. All monies are divided 
equally should more than one person bet on the winning lane. Note 
that the IBM version of this program is included in Appendix A, and 
the Apple version in Appendix B. 


Sample Run 

-:-: LAP-THE-TRACK :-:- 
INSTRUCTIONS? YES 

UP TO FIFTEEN PEOPLE BET ON 

THE FOUR MOVING SPOTS THAT WILL 
BE IN A FAST RACE TO THE FINISH. 

A COMPLETE RACE CONSISTS OF 

10 LAPS. EACH PLAYER WILL BE 
ABLE TO CHOOSE A LANE (1-4) 
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INSTRUCTIONS 
NUMBER 
PLAYING 

INITIALS OF 
PLAYERS 


LANE SELECT 
AND AMOUNTS 


GRAPHICS 
OF TRACK 


MESSAGES 


PLACE AMOUNTS 
ON SELECT LANE 


BEGIN RACE 


CONTINUE RACE 


Y 


OUTPUT WINNERS’ 
AMOUNTS 


RACE AGAIN —{ STOP} 


Flowchart for Lap-the-Track. 
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- LANE 1:1 
- LANE 2:2 
- LANE 3:2 
- LANE 4:1 


B LANE 3.....$4.00 
B LANE 4.....$2.00 


AND HOW MUCH THEY WANT TO BET 
ON THE CHOSEN LANE. IF THERE 
ARE NO WINNERS, THE COMPUTER 
WILL PLACE THE MONEY ON A 

LANE OF ITS CHOICE IN THE 


PRESS ENTER? 


NEXT RACE. IF THE COMPUTER'S SPOT 
(LANE) HAPPENS TO WIN, IT WILL 

NOT TAKE THE MONEY, IT WILL 

JUST BET ON ANOTHER LANE. 

SO NO MATTER HOW YOU SLICE IT, 
SOMEONE IS BOUND TO WIN (SO 

YOU CAN USE REAL MONEY IN 

THIS GAME TOO). 

HOW MANY TO PLAY? 4 


INITIALS, PLEASE? A.A. 
? BB. 
? CC. 
? D.D. 
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YOU WILL NOW SELECT A LANE. 
A.A. LANE NUMBER? 1. 
BET WHAT AMOUNT? 2. 


B.B. LANE NUMBER? 4 
BET WHAT AMOUNT? 2 


C.C. LANE NUMBER? 3 
BET WHAT AMOUNT? 4 


D.D. LANE NUMBER? 2 
BET WHAT AMOUNT? 5 


IF MORE THAN ONE PLAYER WINS 
(SELECTION OF THE SAME LANE) 
ALL MONEY WILL BE DIVIDED AS 
EQUALLY AS POSSIBLE. 


PRESS ENTER TO START THE RACE? 
Program Listing 


iO REM PROGRAM TITLE: LAP--THE-TRACK 

20 CLEAR 200:RANDOM: CLS 

30 PRINT"-:-: LAP-THE-TRACK .-:-" 

40 PRINT: DIM AS$(157,A(15),LAC615),T(15) 

90 INPUT" INSTRUCTIONS"; A$ 

60 IF AS¢-"Y" AND ASiO"YES” THEN 300 

70 PRINT"UP TO FIFTEEN PEGPLE BET ON" 

80 PRINT'THE FOUR MOVING SPOTS THAT WILL" 


70 PRINT"BE IN A FAST RACE TO THE FINISH." 
100 PRINT"A COMPLETE RACE CONSISTS OF" 


110 PRINT"10 LAPS. EACH FLAYER WILL BE" 
120 PRINT’ ABLE TO CHOOSE A LANE (1-4)" 
130 PRINT"AND HGW MUCH THEY WANT TO BET" 
1940 PRINT"ON THE CHOSEN LANE. IF THERE" 
i390 PRINT"ARE NO WINNERS, THE COMPUTER" 
16G PRiNT"WILL PLACE THE MONEY ON A" 

i7G PRINT'LANE OF ITS CHOICE IN THE" 

180 PRINT INPUT"KEY ENTER" ,A$ 

190 CLS 

200 PRINT"NEXAT RACE. IF THE COMPUTERS SPOT" 
Z10 PRiNT" (LANE) HAPPENS TO WIN, IT WILL" 
220 FRINT"NOT TAKE THE MONEY, IT WILL" 
230 PRINT" JUST BET ON ANOTHER LANE " 
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240 
290 
260 
zZ270 
300 
310 
320 
330 
340 
350 
360 
370 
380 
3970 
400 
410 
420 
430 
440 
456 
460 
470 
480 
490 
900 
210 
220 
930 
2 40 
29 G 
260 
270 
280 
2985 
290 
600 
610 
620 
630 
640 
690 
660 
670 
680 
690 
700 
710 
720 


PRINT"SO NO MATTER HOW YOU SLICE IT," 


PRINT" SOMEONE IS BOUND TO WIN (SO'" 
PRINT" YOU CAN USE REAL MONEY IN" 
PRINT" THiS GAME TOO :" 

PRINT 

INPUT" HOW MANY TO PLAY";A 

IF A<I OR Ad1iS THEN 320 

PRINT" INITIALS, PLEASE", 

FOR Il=i TO A 

INPUT AS(1I)> NEAT 

PRINT 

PRINT'YOQU WILL NOW SELECT A LANE." 
T=] 

PRINT A$C¢1I);'' LANE NUMBER", 

INPUT LACT) 

IF LACI3¢1 GR LACI))4 THEN 390 
PRINT" BET WHAT AMOUNT" ; 

INPUT ACI) 

T=i+i 

iF I1>A THEN 480 

PRINT 

GOTO 390 

CLS GOSUB 1300 :IF Zz=i THEN $30 
PRINT" IF MORE THAN ONE PLAYER WINS" 
PRINT' (CSELECTION OF THE SAME LANE)'" 
PRINT"ALL MONEY WILL BE DIVIDED AS" 
PRINT" EQUALLY AS POSSIBLE " 
PRINT: IF CB=1 THEN 960 


PRINT" PRESS ENTER TO START THE RACE", 


INPUT A$:CLS 

REM OUTER OF TRACK 

FOR x=0 TO 127 
SETC(X,0):SETCX,47) 

SETCK,15) :SET(X,31):NEXT 

FOR &=1 TO 19 
DET(CO,X):SET(127,X) : NEXT 

FOR X=31 TO 47 
SETCO,X):SET(127,X%) :NEXT 

REM SPOT POSITIONS / MESSAGES 
GOSUB 1200:GOSUB 1410:L=1:1=384 
L(Ld=I: R¢CLI=T: PCLI=I-300:LPCL)=0 
[=I+64° IF L>=4 THEN 680 
L=L+1:GOTO 690 

FOR I=1 TO 4 
PRINT@L(I),CHR$(143);, :NEXT 

REM START RACE 
LP=0:X$=CHR$ (143): PK=L(1)+63 
I=RND(4):M=ABSC(I-5) 
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730 PRINT@L(I)," "; 

740 IF ABS(LC(I)-R(I)))>=50 THEN 1000 
750 LCI) =L¢1)4+RNDC14) 

760 PRINT@L(1),X$,; 

770 IF M+1i¢>I AND M+1¢905 THEN 790 
780 GOTO 820 

790 PRINT@L(M41)0," "; 

800 L(M+41i/+=L(M+1)+RND( 49) 

810 PRINT@L(M4+1),3%$,; 

820 IF M-1¢()I AND M-1¢4)0 THEN 840 
830 GOTO 870 

840 PRINT@CL(M-1)," "; 

8530 L(M-1)=L(M-1)+RND(C 4) 

860 PRINT@L(M-1),X$, 

870 IF M+2¢*+5 AND M+2¢6)06 THEN 890 
880 GOTO 720 

890 PRINT@L(M+2)," ", 

900 Lt(M+2)=L(M+2)+RND‘I 49) 

910 PRINT@L(M+2),X$, 

920 PRINT@L(M)," "; 

930 L(M)=Li(M)+RNDC4) 

940 PRINT@L(M) ,X$; 

930 GOTO 720 

960 CB=0:PRINT'THE COMPUTER WILL PLACE" 
970 PRINT'THE AMOUNT OF";USING AAS;AM 
98O RF=RND(4).PRINT"ON LANE"; RF;" 
985 MN(RF)=MN(RF)+AM: AM=0 

990 GOTO 540 

1000 PRINT@L(I)," ", 

1010 LC I)d=RC1) 

1020 LPC I)=LP(I)+1:PRINT@PC(I),LPCI); 
1030 IF LP(I}>})=10 THEN 1500 

1040 GOTO 720 

1200 PRINT@466,"LAPS - LANE 1:"; 

1210 PRINT@130,"LAPS - LANE 2:"; 
1220 PRINT@194,"LAPS - LANE 3:"; 
1230 PRINT@258,"LAPS - LANE 4:", 
1240 REM AMOUNTS PER LANE 

1250 PRINT@706,"LANE 1. _ 

1260 PRINT@770, "LANE 2. 
1270 PRINT@834, "LANE 3. ar 
1280 PRINT@898,"LANE 4 
1290 RETURN 

1300 REM AMOUNTS ON LANES 
1310 Te=1 

1320 FOR I=1 TOA 

1330 IF LACI)2=T THEN 1350 
i340 NEXT:GOTO 1370 
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13590 
1360 
1370 
1380 
1390 
1400 
1910 
1420 
1430 
1440 
1430 
1460 
1470 
1500 
1510 
1320 
1330 
1540 
1350 
1360 
1370 
1380 
1390 
1600 
1610 
1620 
1630 
1640 
1690 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1729 
1730 
1740 
1730 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 


MN(T)=MN(T)+ACT) 

GOTO 1340 

T=T+1 

IF T>=5 THEN 1400 

GOTO 1320 

RETURN 

REM PRINT AMOUNTS 
AAS="$S5#,8### . ##" 
IT=1:FF=718 
PRINT@FF,USING AAS$,MN(CI); 
T=I+1:FFaFF+64 

IF I)=5 RETURN 

GOTO 14490 

REM FINISH 

WW= 1 
PRINT@P(1I)4+6,"WINNER" ; 
FOR TU=i TO 200:NEXT 
PRINT@P(1)+6,STRINGS (6,32), 
FOR TU=i TO 50:NEXKT 

IF WW)=6 THEN 1580 
WW=WW+1:GOTO 1520 

REM PLAYER LANE SELECT 
WW= 0 

FOR T=i TO A 

IF LACT)=I THEN 1630 
NEXT:GOTO 1650 

WW=WW+il :-TCWW) =T 

GOTO 1620 


FOR T=1 TO 4: AM=AM+MNC( I?) :MNCI)=0 


NEXT: IF WW=0 THEN 1760 
PRINT@735,"WINNER(S):",; 
WK=799 

FOR IT=1 TO WW 
PRINT@WK ,AS (TCI); 

IF WW)1 PRINT",",; 
WX=WX+9 : NEXT 

IF WW=1 THEN 1790 


PRINT@863,"EACH WINNER RECEIVES:",; 


PRINT@927,USING AAS ;,AM/WW,; 
AM=0:GOTO 1820 

PRINT@P( 13415, ; 

PRINT"*®* NO WINNERS *X%"; 
GOTO 1870 

PRINT@8643, ; 

PRINT" YOU WILL RECEIVE:",; 
GOTO 1740 

REM ANOTHER 

PRINT@3 84, ; 
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1840 INPUT" ANOTHER RACE (Y/N)";A5 

1850 IF A$="N" THEN 2000 

1860 CLS:Z2Z=1:GOTO 360 

1870 FOR TU=1 TO 1200:NEXT 

1880 PRINT@P(1)+412,,; 

1890 PRINT"IF ANOTHER RACE IS HELD, THE", 
1900 PRINT@P(2)+12, ; 

1910 PRINT"COMPUTER WILL BET THE MONEY"; 
1920 PRINT@P(3)+4+12Z,; 

1930 PRINT"ON A LANE IT SELECTS."; 

1940 CB=1:GOTO 1820 

2000 REM END 

2010 CLS 

2020 PRINT"FAREWELL ‘TIL THE NEXT RACE." 
2030 END 


Variables and Strings 

A - Number playing (1-15) 

A$) - Initials of players 

LAC) - Lane number selected by the user 

CB - 0/1 to stop or race again 

L(L) - Spot positions, start/continue 

R(L) - Spot positions, greatest amount 

P(L), LP(L) - Win location 

M - Distance to move 

RF - Lane selected by the computer if required 
MN(D) - Total amount in bets 

AM - Amount carried over from previous race 
AA§$ - Amount messages 

FF - Print @ location for message 


Explanation of Program Lines 


Lines 10-270 display the general instructions. 

Lines 300-360 accept the number of players and their initials. 

Lines 370-470 allow each player to select a lane (1-4) and enter 
the amount he or she wants to bet. 

Line 480 is explained at lines 1300-1400. 

Lines 490-550 display a message concerning the betting. 

Lines 560-620 draw the outer boundaries of the track. 

Lines 640-690 establish the locations of the spot and display 
messages. 

Lines 700-950 print all four spots and keep them moving to 
right. Random amounts are added to each, dependent upon variable 
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M. Laps are increased by one for each spot when ABS(L()— 
R(I))>= 50. The first to reach 10 laps is the actual winner. 

Lines 960-990 allow the computer to select a lane and an 
amount to bet. 

Lines 1000-1040 work in conjunction with lines 700-950, 
clearing the screen and counting the laps. 

Lines 1200-1290 display messages that appear during the race. 

Lines 1300-1400 tally the amounts bet on each lane MN(T) 
using the individual bets A(I). 

Lines 1410-1470 print all bets as the race begins. The amount 
of each bet is placed beside the track that it was bet on. 

Lines 1500-1810 print the names of all the winners and how 
much they won. If there is no winner, the amount bet will be carried 
over. If more than one player wins on the same track, the total 
amount bet will be divided equally between those players. 

Lines 1820-2030 ask if the users want to race again and recycle 
the program or terminate appropriately. 
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you again 
| forgot the word 


What was that 
clue word? 


PARTNERS 


How well you depend upon your partner will be determined during 
this game. Up to 10 players (5 partners) can compete against one 
another. There will be 5 words. One player will view the word; the 
video will clear ; then the other player takes the keyboard. The first 
player, who viewed the word, will give his or her partner clues as to 
what the word is. One minute will be given to enter all 5 point 
words. The winners are the partners who get the most words 
correct. 


Sample Run 


PARTNERS 
INSTRUCTIONS BEFORE PLAY? YES 


HOW MUCH DO YOU RELY ON YOUR 
PARTNER? IF YOU RELY ON HIM 

OR HER TO THE FULLEST, THIS 
GAME WILL SURE TELL. THIS 

GAME REQUIRES AT LEAST 2 
PLAYERS; WHILE UP TO 10 CAN 
PLAY. 

THE OBJECT OF THE GAME IS TO 
INPUT 5 WORDS BEFORE A MINUTE 
HAS ELAPSED. EACH TEAM WILL. 
SELECT WHO WILL SEE THE 

WORD. AFTER SEEING IT THE PLAYER 
WILL PRESS ENTER. THE SCREEN 
WILL CLEAR. 
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START 


Y 
PRINT 
INSTRUCTIONS 
NUMBER 
TO PLAY 


Y 


GET PARTNERS 
NAMES 


READ 
WORD DATA 
GET ONE 

WORD 


N 


CONTINUE 
WORD ENTRY |N 


Flowchart for Partners. 
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PRESS A KEY 


YOUR PARTNER (WHO SAW THE 
WORD) WILL THEN GIVE YOU CLUE 
WORDS TO WHAT IT MIGHT BE, BUT 
NOT THE ACTUAL WORD ITSELF. 
YOU WILL THEN START INPUTTING 
GUESSES OF WHAT YOU THINK THE 
WORD IS. AS SOON AS YOU HAVE 
INPUT THE CORRECT WORD, 
TIMING WILL STOP. YOU AND YOUR 
PARTNER WILL CHANGE PLACES, 
CHANGE PLACES, 

AND YOUR PARTNER 

WILL VIEW 

ANOTHER WORD, UP 

TO A TOTAL OF 5. 


PRESS A KEYV..... 


REMEMBER THAT YOU'LL ONLY HAVE 
ONE MINUTE TO ENTER ALL 5 WORDS 
(EXCEPT FOR CHANGING TO REVIEW 
ANOTHER WORD). 


NUMBER PLAYING? 5 
EVEN NUMBER ONLY... 


NUMBER PLAYING? 4 

NOW ENTER THE 4 PEOPLE 
THAT WILL BE PARTNERS, 
AS EACH WILL PLAY. 

? EARTHA 

? FRAN 


? WILL 
? RANDY 


Program Listing 


10 REM PROGRAM TITLE: PARTNERS 
Z0 CLEAR 300:CLS 
30 RANDOM: DIM W$(50),W(50)0,T¢(11) 
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40 PRINT" PARTNERS" 
20 PRINT 
60 INPUT" INSTRUCTIONS BEFORE PLAY (Y/N)";X5 
70 IF X$="N" OR X$="NO"" THEN 470 
80 PRINT"HOW MUCH DO YOU RELY ON YOUR" 
90 PRINT" PARTNER? IF YOU RELY ON HIM" 
100 PRINT'OR HER TO THE FULLEST, THIS" 
110 PRINT"GAME WILL SURE TELL THIS" 
i120 PRINT"GAME. REQUIRES AT LEAST 2" 
130 PRINT" PLAYERS, WHILE UP TO 10 CAN" 
140 PRINT" PLAY “ 
150 PRINT"THE OBJECT OF THE GAME IS TO" 
160 PRINT" INPUT 3 WORDS BEFORE A MINUTE" 
i70 PRINT"HAS ELASPED EACH TEAM WILL" 
i80 PRINT"SELECT WHO WILL SEE THE " 
190 PRINT'WORD AFTER SEEING IT THE PLAYER" 
200 PRINT'WILL PRESS ENTER; THE SCREEN" 
Z210 PRINT"'WILL CLEAR." 
220 FOR T=i TO 3000:NEXT : PRINT 
230 PRINT" PRESS A KEY" 
240 X$=INKEYS: IF X$="" THEN 240 
250 PRINT@C, CHRS (30> 
260 PRINT" YOUR PARTNER (WHO SAW THE " 
270 PRINT"'WORD) WILL THEN GIVE YOU CLUE" 
280 PRINT"WORDS TO WHAT IT MIGHT BE, BUT" 
290 PRINT"NOT THE ACTUAL WORD ITSELF." 
300 PRINT" YOU WILL THEN START INPUTTING" 
310 PRINT"GUESSES OF WHAT YOU THINK THE " 
320 PRINT'WORD IS AS SOON AS YOU HAVE" 
330 PRINT" ENTERED THE CORRECT WORD" 
340 PRINT"TIMING WILL STOP YOU AND YOUR" 
350 PRINT" PARTNER WILL CHANGE PLACES," 
360 PRINT"AND YOUR PARTNER WILL VIEW" 
370 PRINT" ANOTHER WORD, UP" 
380 PRINT'TO A TOTAL OF 9." 


390 PRINT 

400 PRINT'PRESS A KEY..... " 

410 X$=INKEYS: IF X$="" THEN 410 
420 CLS 


430 PRINT" REMEMBER THAT YOU'LL ONLY HAVE" 
440 PRINT" ONE MINUTE TO ENTER ALL 5 WORDS" 
430 PRINT" (EXCEPT FOR CHANGING TO" 

9460 PRINT"REVIEW ANOTHER WORD. >)" 

470 PRINT 

9480 INPUT"'NUMBER PLAYING", X 

490 IF INT(X/2)%*2¢)>% THEN 510 

200 GOTQ 330 

5310 PRINT" EVEN NUMBER ONLY .." 
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220 PRINT:GOTO 480 

530 IF X)10 THEN PRINT:GOTO 480 

540 PRINT'NOW ENTER THE" ;,X; "PEOPLE" 

550 PRINT" THAT WILL BE PARTNERS," 

5360 PRINT" AS EACH WILE PLAY " 

970 T=1:M=2 

980 INPUT Q$(C¢I) 

$90 IF I=M THEN 610 

600 JT=I+1:GOTO 340 

610 IF I>=XK THEN 630 

620 IT=I+1:M=M+2:PRINT:GOTO 580 

630 REM GET POINT WORD LIST 

6940 FOR ITI=1 TO $30:READ WS(I) 

630 WC I>=I:NEXT: WM=0 

660 [=1 

670 CLS :WW$e='"" | 

680 PRINT Q§(I)?;" YOU WILL NOW VIEW THE" 
690 PRINT'WORD PRESS ENTER WHEN" 

700 PRINT" READY YOU'LL HAVE 53 SECONDS" 
710 PRINT"TO RECOGNIZE AND REMEMBER IT"; 
7Z20 INPUT X& 

730 REM GET A WORD 

740 W=RND( 50) 

730 IF WCW)=-99 THEN 740 

760 WSHWS (OW) WCW) =-99:CLS 

770 PRINT"THE WORD: ";,W5 

780 FOR T=! TO 2000:NEXT:CLS 

790 PRINT Q$C(1I);" GET YOUR PARTNER" 

60 FRINT G3(i¢i), TO THE COMPUTER. ” 
810 PRINT"TIMING WILL BEGIN (OR RESUME)" 
820 PRINT'WHEN YOU PRESS ENTER ",Q$ CT 41); 
830 INPUT X$ 

840 CLS 

8350 PRINT" INPUT YOUR WORD THROUGH INKEYS.'" 
860 PRINT" PRESS THE CLEAR KEY AS SOON" 
870 PRINT'AS YOU ARE FINISHED, “;Q$S¢I41);,". 
88OQ PA=256:PRINT@3849,"TIME:",; 

890 PRINT@393,"SECONDS"; :IF TM<)0 THEN 910 
900 TM=0:REM TIME RESET 

910 PRINT@PA,CHR$(143), 

920 V$=INKEYS$ 

930 iF LEN(V$)¢)0 THEN 1050 

940 IF VS="" THEN 960 

9530 PRINT@PA,VS$; :GOTO 1010 

960 FOR Tl=i TO 293:NEX&T 

970 TM=TM+.2:PRINT@389,INTCTM) ; 

980 PRINT@PA, CHR$(32) ; 

990 FOR Tlz=t TO 35:NEXKT 


292 


1000 IF INTC(TM)=60 THEN 1370 ELSE GOTO 910 
1010 REM WORD 

1020 WWS=WW5+V5 

1030 PA=PA+1 

1040 GOTO 770 

1050 REM WORD FINISHED 

1060 IF ASC(V$>=31 THEN 10806 

1070 GOTO 940 

1080 PRiINT@PA,CHRS (32), 

1090 IF WWS$<>WS THEN 1110 

1100 GOTO 1160 

1110 PRINT@S512, "THAT IS NOT THE WORD !!" 
1120 FOR Tl=1 TO 900:NEXT 

1130 PRINT@256,CHRS (30), 

1140 PRINT@512,CHRS‘30), 


1150 WWs="":GOTO 880 
1160 PRINT@S512, ; 
1170 PRINT' THAT [IS CORRECT, ";,Q@$(1T+1),"!H1" 


1180 IF WM)=4 THEN 1260 
1190 WM=WM+i1 


1200 PRINT"PLEASE CALL ",Q$(1I)0;" TO THE" 
1210 PRINT"COMPUTER FOR ANOTHER '" 


1220 PRINT"WORD VIEWING, ",Q$(IT4#1);," " 
1230 PRINT Q@Q5(1I);" PRESS ENTER", 

1240 INPUT X5:WWS="" 

i230 GOTO 670 

1260 FOR Tl=1 TO 2000:NEXT: CLS 

1270 PRINT"THAT IS ALL";WM; "WORDS." 
1280 PRINT" YOU STILL HAD" ;,60-INT(TM) 
1290 PRINT"SECONDS REMAINING." 

1300 Tc I)=60-INT(TM) 

1310 IF I+1>=k THEN 1400 ELSE J=I+2 
1320 PRINT"IT IS NOW ",Q@$C(1I)0;" AND "; 
1330 PRINT @§C(I4+1);"'S TURN." 

1340 PRINT" PRESS ENTER WHEN READY"; 
13530 INPUT X$ 

1360 TM=0:WM=0.GOTO 670 

1370 PRINT@S12Z,, 

1380 PRINT" YOUR TIME HAS EXPIRED !!!" 
1390 GOTO 1300 

1400 REM ARRANGE TIMES 

1410 REM BEST TO WORST 

1420 JT=1:J=0 

1430 IF Tc lT)>=sT(I+2) THEN 1460 

19440 T=TCT) : TCI H=TC14+2). TC 1+2)=T: Jal 
149445 V8s( TI =QSC 1): VECi+1)=QS (C141) 

1450 Q$¢(1)=QS(1+2) -Q5C1+1)=Q5¢(1+3) 
1955 QG$Ci+2)dsVECT) :Q5C1+372V58 (1 +1) 
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1460 IT=1+2 

1470 IF IX THEN 1490 

1480 GOTO 1430 

1490 IF J=1 THEN 1420 

1500 FOR Tl=1 TO 2000:NEXT 

15310 CLS 

1520 PRINT" PLAYERS / TIME CONSUMED" 

1530 PRINT" IN QRDER OF TIME " 

15940 J=2:FOR I=1 TO X STEP 2 

13550 PRINT Q@$(1I);" & ";,Q$¢J),; 

1560 PRINT" CONSUMED" ;60-TCI);"SECONDS." 
1570 FOR Til=:i TO ?00:NEXKT TI: J=J+2:NEXT I 
1580 PRINT 

1590 PRINT"END OF RUN... " 

1600 END 

2000 DATA TELEVISION, ACCOMMODATE, TERRACE 
2010 DATA STEAM, CONCLUSION, AFFIRMATIVE 
2020 DATA SECTION, JOGGING, CIRCLE 

2030 DATA GEOMETRIC, CONFUSE, THIRSTY 

20940 DATA STOCK, PURGE, VANDALIZE, PERMIT 
2030 DATA REDUCE,LIMIT, GLANCE, TARGET 
2060 DATA ZODIAC,WIND, WEATHER, FRAGRANCE 
2070 DATA MATERAL, SUSPENSE, BLISTER 

2080 DATA ALUM, AMBIENT, COMMUNICATE 

2070 DATA BYPASS,GULP, FOREIGNER, MORTGAGE 
2100 DATA RECOMMEND, PYRAMID, TENDER 

2110 DATA RECOVER, BRIDGE,WANDER, WALK 
Z120 DATA COMPUTER, CORRESFOND,MATH 

2i30 DATA BLICZARD, ASHTRAY, HOUSE 

2140 DATA AMOUNT, PROFESSION, DEMAND 


Variables and Strings 


X - Number of players, there must be an even number playing 
Q$ (i) - Players’ names 

WS$ (1) - Words 

W() - For word deleted 

WM - Word count 

WWS - Total word entered (V$) 

W$ - Current word selected 

PA - Print @ location for letter entry 

TM - Time loop 

V$ - Entry of word through INKEY$ 

T(D - Total time consumed by current partners 

I - Player count to go on to the next set of partners 
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Explanation of Program Lines 


Lines 10-470 display the general playing instructions. 

Lines 480-530 request the number of players. This must be an 
even number and 1s tested by line 490. 

Lines 540-620 request the players to input their names in 
pairs. 

Lines 630-650 read the words to be guessed from the data 
lines. 

Lines 660-720 display a message. 

Lines 730-760 select a word to be guessed. If the word has 
already been used, it will be deleted by setting W(W) = 99. 

Lines 770-780 prints the word so that one of the partners can 
see it. 

Lines 790-830 display a message for the other players (player 
2). 

Lines 840-1040 accept the input of the word guess by player 2 
by using the INKEY$ function to form WW$§. Timing is kept by the 
variable TM which is advanced by +.2. If the integer of TM = 60, 
one minute has elapsed. If player 2 has entered the word and 
pressed the clear key (line 1060) the program will branch to line 
1080. 

Lines 1050-1070 test for the pressing of the clear key. 

Lines 1080-1250 determine whether or not the correct word 
was entered. If it was, another word will be selected, if WM< = 4in 
line 1180. If it wasn’t, the same word will be given again. In either 
case continuing depends on the value of INT(TM), the amount of 
time that has elapsed. 

Lines 1260-1300 display a message indicating that all five 
words have been entered and showing the amount of time remain- 
ing. 

Lines 1310-1360 advance to the next set of partners (if there 
are more). 

Lines 1370-1390 display the time-expired message. 

Lines 1400-1490 arrange the times for each set of partners 
from best to worst. 

Lines 1500-1600 display the partners’ names and the total 
amount of time it took them to enter all five words. 

Lines 2000-2140 are data lines containing all the words to be 
guessed. 
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POINT A TO POINT B 


This is one maze game you'll find hard to get away from. Unlike 
when you use the ordinary maze game (pressing different keys for 
different directions), you'll enter all of your directions and spaces 
before any movement takes place. Don’t write down all the direc- 
tions and spaces; you'll be wasting your time! ‘he maze changes 
with each player or run. Note that the IBM version of this program 
is included in Appendix A. 


Sample Run 


< FROM POINT A > 
< TO POINT B > 


INSTRUCTIONS (Y/N)? Y 
NUMBER TO PLAY (1-10)? 1 


ARE YOU CONFUSED BY THE MANY 
DIFFERENT MAZE GAMES THAT ARE 
CURRENTLY ON THE MARKET? HAVE 
NO FEAR!! FROM POINT A TO 

POINT B IS HERE!! 
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START 


NUMBER 
OF PLAYERS 


IFG=1 
PRINT INSTRUCTIONS 


PLAYERS’ 
NAMES 


MAZE 
GRAPHICS 


CURRENT PLAYER 
INPUT DIRECTION 


NUMBER OF 
SPACES 


COMPUTER TO 
CARRY OUT ALL 
INSTRUCTIONS 


ADVANCE TO N GD 
NEXT PLAYER 
<< t| MESSAGE 
N 


Y Y 


OUTPUT ALL 
THAT MADE IT MESSAGE 


SUCCESSFULLY 
TO POINT B 


Flowchart for Point A to Point B. 
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DIRECTION (L,R,U,D)?— 


ACTUALLY, THIS IS NOT YOUR 
RUN-OF-THE-MILL MAZE GAME. 

WHAT IT 1S 1S A MAZE GAME THAT 
WILL PROBABLY CONFUSE YOU MORE 
THAN EVER. YOU SEE, YOU WILL 

NOT BE CONSTANTLY BE PRESSING 
DIFFERENT KEYS FOR DIFFERENT 
DIRECTIONS; YOU'LL INPUT ALL 


PRESS ENTER? 


OF THE INSTRUCTIONS BEFORE YOU 
MOVE AT ALL; UP SO MANY 

SPACES, RIGHT SO MANY SPACES, 
LEFT SO MANY SPACES, ETC., ETC. 
AFTER YOU HAVE ENTERED ALL 
YOUR INSTRUCTIONS, 

YOU WILL INPUT XX. AT THAT 

POINT YOUR PIECE WILL BEGIN 

TO MOVE ACCORDING TO THE INSTRUCTIONS 
YOU GAVE. IF AT ANY POINT YOU 
COLLIDE WITH ANYTHING, 

IT IS THE END OF YOUR 

TURN... 


PRESS ENTER, AGAIN? 


298 


ENTER THE FIRST NAMES OF 
THE 1 PLAYERS, PLEASE 
? DAVE 


TO BEGIN DAVE, PRESS ENTER 


Program Listing 


10 

z20 

30 

40 

20 

60 

70 

80 

90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
290 
260 
270 
Z80 
290 
300 
310 
320 
330 
3490 
390 


360 
370 
380 


REM PROGRAM TITLE: 

REM FROM POINT A TO POINT 8B 

CLEAR 300: RANDOM: CLS 

PRINT"< FROM POINT A >" 

PRINT'< TO POINT 8B >" 

PRINT: DIM D$(50),5(50) 

INPUT" INSTRUCTIONS (Y/N) ",WS5 

IF WS="N" THEN Gel 

INPUT"NUMBER TO PLAY (1-10)";A 

IF A<1l OR AdD10 THEN 90 

IF G=1i1 THEN G=0:GOTO 410 

PRINT“ ARE YOU CONFUSED BY THE MANY" 
PRINT"DIFFERENT MAZE GAMES THAT ARE“ 
PRINT' CURRENTLY ON THE MARKET? HAVE" 
PRINT"'NO FEAR! ! FROM POINT A TO" 
PRINT" POINT B IS HERE! !" 

PRINT" ACTUALLY, THIS IS NOT YOUR" 
PRINT" RUN-OF-THE-MILEL MAZE GAME." 
PRINT'WHAT IT IS IS A MAZE GAME THAT" 
PRINT"WILL PROBABLY CONFUSE YOU MORE" 
PRINT" THAN EVER. YOU SEE, YOU WILL" 
PRINT"NOT BE CONSTANTLY PRESSING" 
PRINT“ DIFFERENT KEYS FOR DIFFERENT" 
PRINT" DIRECTIONS; YOU'LL INPUT ALL" 
INPUT" PRESS ENTER" ;W 

CLS 

PRINT"OF THE INSTRUCTIONS BEFORE YOU" 
PRINT'MOVE AT ALL: UP SO MANY" 
PRINT"SPACES, RIGHT SO MANY SPACES," 
PRINT" LEFT SO MANY SPACES, ETC.,ETC " 
PRINT"'AFTER YOU HAVE ENTERED ALL" 
PRINT"OF YOUR INSTRUCTIONS," 

PRINT" YOU WILL INPUT XX. AT THAT" 
PRINT" POINT YOUR PIECE WILL BEGIN" 
PRINT'TO MOVE ACCORDING TO THE 
INSTRUCTIONS" 

PRINT"YOU GAVE. IF AT ANY POINT YOU" 
PRINT"COLLIDE WITH ANYTHING " 

PRINT" YOUR TURN ENDS.": PRINT 
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400 INPUT" PRESS ENTER, AGAIN"; W 

9410 CLS 

420 REM PLAYERS 

430 REM PLAY IN ORDER OF ENTRY 

940 PRINT"ENTER THE FIRST NAMES OF" 
9430 PRINT'THE";,A;"'"PLAYERS, PLEASE" 
9460 FOR IT=1 TO A: INPUT AS(I) 

470 NEXT: L=1:MX=0 

480 PRINT 

490 PRINT"TO BEGIN ";,AS$(L)>;", PRESS ENTER" 
2900 INPUT W 

910 REM GRAPHICS 

920 CLS:FOR X=0 TO 127 

930 SETC(X,0):SET(X,39) :NEXT 

540 FOR X=1 TO 38 

990 SET(0,X):SET(127,X) :NEXT: GOTO 5380 
960 PRINT@65,S5TRINGS$ (62,140); 

969 D=RND(110):IF D<¢102 THEN 565 

3970 PRINT@D,STRINGS (2,32); : RETURN 

980 GOSUB 360: PRINT@193,STRINGS (12,131); 
2790 PRINT@220,STRING$(11,131);:GOTO 620 
600 PRINT@232,STRING§(22,131),; 

605 D=RND(252):I1F D¢z40 THEN 608 

610 PRINT@D,STRINGS (2,32); :RETURN 

620 GOSUB 600:M=30:M1=56:M2=6:M3=12:GOTO 670 
630 FOR X=M TO M1:SETC(K,M2) 

6940 SET(X,M3) :NEXT: FOR K=M2+i TO M3-1 
650 SET(M,X) :SET(M+1,X):SET(M1I-1,X) 

660 SET(M1,X) :NEXT: RETURN 

670 GOSUB 630 

680 M=1:M1=15:M2=12:M3=17:GOSUB 630 

690 M=19:Mi=28:GOSUB 630 

700 M=M1+3:M1=M1+72:M2=M3-2 :M3=M3+6 

710 GOSUB 630 

720 M=M1+4:M1=M1+27 :MZ2=MZ2+6 :-M3=M3+6 

730 GOSUB 630 

740 M=1:M1=28:GOSUB 630:GOTO 770 

750 PRINT@S590,STRINGS$(38,131),; 

732 PRINT@371,STRINGS (12,131), 

795 D=RND(626):IF D¢3590 THEN 755 

738 F=RND(381):I1F F(C371 THEN 758 

760 PRINT@D, STRINGS (2,32), 

765 PRINT@F,STRINGS (2,32); : RETURN 

770 GOSUB 750 :M1=M1-4:M2=M3+2:M3=M3+6 
775 GOSUB 630 

780 M=M1+4:M1=M1+14 

790 GOSUB 630 

800 IF M>=112 THEN 880 


=. 
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810 GOTO 780 

820 M=M-15 :M1=M+10:M2=2:M3=95 

830 GOSUB 630 

840 M=M-14:M1=M+12:M2=M3+3 :M3=M3+8 
8530 GOSUB 630 

B60 M=M-15 :M1=M+4:M2=4:M3=6 

870 GOSUB 630:RETURN 

880 REM START /¢ STOP LOCATIONS 

890 GOSUB 820:XkK=1:Y=37.X=2:X2=125 
900 X1=RND(X2) 

910 RESET(X-1,Y) 

920 K=X+i 

930 SETCX,Y) 

940 KX=XX+1:I1F G=i AND XX>)=150 THEN 1000 
950 IF X=XKi AND XXK)=50 THEN 1000 
960 IF X>)=X2 THEN 780 

970 GOTO 900 


980 RESET(X,Y) :RESET(X-1,Y) 

990 X=2:GOTO 900 

1000 XX=1:PRINT@896,;:I1IF G=1 THEN 1110 
1010 PRINT"THIS IS POINT A (START). " 
1020 RESET(K,Y) : RESET(C(X-1,Y)>) 

1030 FOR Tz=1 TO $0:NEXT 

1040 SET(X,Y>) 

1050 FOR Tz=1 TO 25 :NEXT: XX=XX+i 

1060 IF xXX¢=10 THEN 1020 

1070 IF G=!1 THEN 11350 ELSE JJ=X 

1080 G=1:PRINT@896,CHRS$(30) 

1090 PRINT@896,"LOOK AT THE TOP (POINT 8B)." 
1100 X=2:Y=2:XX=1:X1=1:X2=90:GOTO 900 
1110 PRINT@896,CHR$(30>) 

1120 PRINT@896, ; 

1130 PRINT"'THIS IS POINT B (STOP ZONE)..." 
1140 R=X:GOTO 1020 

1150 PRINT@896,  CHRS5(30) 

1160 GOTO 1210 

1170 PRINT@896, ; 

1180 RETURN 

1190 FOR Te=1 TO 1200:NEXT 

1200 PRINT@896,CHRS (30): RETURN 

1210 GOSUB 1170 

1220 PRINT" YOU WILL NOW GIVE INSTRUCTIONS" 
1230 GOSUB 1190:GOSUB 1170 

12940 PRINT'TO ENTER THE STOP ZONE. ." 
1250 GOSUB 1190:GOSUB 1170 

1260 PRINT'THE STOP ZONE BLOCK MUST BE HIT" 
1270 GOSUB 1190:GOSUB 1170 

1280 PRINT"HEAD-ON TO COMPLETE A RUN." 
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1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1425 
1430 


1440 
1420 


1460 
1470 
1480 
1490 
1500 
1510 
1520 
1330 
13540 
1390 
1560 
i370 
1580 
13570 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
i710 
1720 
1730 
1740 
1730 
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GOSUB 1190:GOSUB 1170 

T=1 

INPUT"DIRECTION (L,R,VU,D)";D5 
IF D$="XXK" THEN 1380 
D$(I)=D$:GOSUB 1170 

INPUT" FOR HOW MANY SPACES";S 
S(I)=S:I=I+41:GOSUB 1170 

IF [T>=51 THEN 1430 

GOSUB 1200:GOSUB 1170:GOTO 1310 
GOSUB 1170 

PRINT"THE COMPUTER WILL NOW CARRY" 
GOSUB 1190:GOSUB 1170 

PRINTOUT ALL OF YOUR INSTRUCTIONS." 
T=I-1:Hel:1=1:XeJJ:Y=37:G=0 
GOSUB 1190:GOTO 1480 

GOSUB 1170 

PRINT"THAT IS THE LIMIT OF THE" 
GOSUB 1190:GOSUB 1170 

PRINT" INSTRUCTIONS YOU CAN ENTER." 
GOSUB 1190:GOTO 1380 
D$=D$(1I):S=SC(I):J=1 

IF D$s$="L" THEN 1540 

IF D$="R" THEN 1580 

IF Ds="U" THEN 1620 

IF Ds="D" THEN 1660 

GOTO 1760:REM BAD DIRECT 

IF POINT(X-1,Y) THEN 1760 
X=X-1:RESET(X+1,Y) 

IF X<¢=0 THEN 1760 

GOTO 1690 

IF POINT(X+1,Y) THEN 1760 
X=X+1:RESETC(K-1,Y) 

IF X)>)=126 THEN 1760 

GOTO 1690 

IF POINT(X,Y-1) THEN 1760 
Y=Y-1:RESETCX,Y+1) 

IF ¥¢=i THEN 1760 

GOTO 1690 

IF POINTC(X,Y+1) THEN 1760 
Y=Y¥Y+1:RESETC(X,Y-1> 

IF ¥X=39 THEN 1760 

SET(X,Y) 

IF S)J THEN 1720 

GOTO 1730 

J=J+1:GOTO 1490 

I=I+1 

IF I>H THEN HH=1:GOTO 1760 

GOTO 1480 


1760 GOSUB 1170:I1F ABS(X-R)¢=1 THEN 2060 
17653 IF HH=1 THEN HH=0:GOTO 1900 

1770 PRINT"SORRY.. YOU HAVE ATTEMPTED' 
1780 GOSUB 1190:GOSUB 1170 

1790 PRINT"A SHORT--CUT THAT DIDN'T WORK." 
1800 REM ANOTHER PLAY? 

1810 GOSUB 1190 

1820 GOTO 1950 

1830 GOSUB 1190:GOSUB 1170 

1840 PRINT"READY TO TRY AGAIN (Y/N)"; 
1830 INPUT WS5 

1860 IF WS="¥" THEN 1880 

1870 GOTO 2300 

1880 RESETC(X,Y) :RESETCR, 2) 

1890 GOTO 19770 

1900 GOSUB 1170 

1910 PRINT" THAT WASN'T ENOUGH TO GET" 
1920 GOSUB 1190:GOSUB 1170 

1930 PRINT" YOU TO THE STOP ZONE “;A5(L) 
1940 GOTO 1800 

1930 REM PLAYER ADVANCE 

1960 IF L>=A THEN 2020 ELSE L=L+1l 

1970 GOSUB 1170 

1980 PRINT AS$(L);,'" WILL NOW ATTEMPT THE" 
1990 GOSUB 1190:GOSUB 1170 

2000 PRINT" VENTURE FROM POINT A TO B." 
2005 RESET(X,Y):RESETC(R,2):GOSUB 560 
2010 GOSUB 600:GOSUB 750:M=112:M1=122 
2015 GOSUB 1190:GOTO 880 

2020 REM START OVER 

2030 L=1:GOSUB 1170 

2040 PRINT"ALL HAVE PLAYED.. " 

2050 GOSUB 21460:MX=0:GOTO 1830 

2060 IF ABS(Y¥-2)>=1 THEN 1900 

2070 GOSUB 1190:GOS5SUB 1170:REM COMPLETE 
2080 PRINT"'VERY WELL DONE, ";,A$(L),"%! 1" 
2090 GOSUB 1190:GOSUB 1170 

2100 PRINT"YOU HAVE MADE A COMPLETE" 
2110 GOSUB 1190:GOSUB 1170 

2120 PRINT" PASSAGE TO POINT &. " 
2130 GOSUB 1190 

2140 M(L)dS1:MX=1 

21530 GOTO 1950 

2160 REM PLAYERS MADE TO POINT B 

2170 IF MX=0 THEN RETURN 

2180 GOSUB 1190:GOSUB 1170 

2190 PRINT"THE FOLLOWING HAVE EASILY MADE" 
2200 GOSUB 1190:GOSUB 1170 
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2210 PRINT"IT TO POINT B.. " 
2220 GOSUB 1190:GOSUB 1170 
2230 FOR U=1i TO A 

22940 IF M(U)si THEN 2260 

2290 NEAT: RETURN 

2260 PRINT AS(U)D;".... " 

2270 GOSUB 1190:GOSUB 1170 
2280 M(U)=0:GOTO 2250 

2300 REM END 

2310 GOSUB 1190:GOSUB 1170 
2320 PRINT"POINT A TO POINT 8B" 
2330 GOSUB 1190:GOSUB 1170 
2340 PRINT"TERMINATED..... " 
23930 GOSUB 1190:GOSUB 1170 
2360 END 


Variables and Strings 


A - Number of players 

G - O/1 for skip of the instructions 
A$ (I) - Player’s first names 

L - Current player 

D,F - Arandom amount to make certain parts of each maze different 
M,M1,M2, M3 - For maze graphics 
X,Y - Start location; JJ=X at point A 
X,Y - Stop location; R=X at point B 
D$ (D - User’s direction 

S(T) - Spaces per direction 

I - Number of moves, up to 50 

H - Total number of moves entered 
D$ - Direction, as per D$(I) 

S - Spaces, as per S(I) 

J - Total spaces per direction (counter) 
M(L) - Players that made it to point B 


Explanation of the Program Lines 


Lines 10-400 request the number of players and display the 
general instructions. 

Lines 410-470 accept the players’ first names. 

Lines 480-500 display a message to the current player. 

Lines 510-870 create the maze graphics. The random variable 
D and F will help insure that certain parts of the maze will be 
different each time in case there are users who decide to cheat by 
writing down the instructions. 
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Lines 880-1160 randomly select the locations of point A, the 
Start, and point B, the stop. 

Lines 1170-1180 form a subroutine used for displaying mes- 
sages. 

Lines 1190-1200 form a subroutine that creates a pause and 
clears the message from the screen. 

Lines 1210-1290 display a message to the user before he or she 
inputs his or her instructions. 

Lines 1300-1370 allow the user to input all of his or her 
instructions for getting to point B. Up to a total of 50 can be entered 
if they are needed. 

Lines 1380-1410 display a message indicating that the com- 
puter is ready to carry out the user’s instructions. 

Lines 1420-1425 set some variables before the actual move- 
ment begins. 

Lines 1430-1470 displays a message indicating that no more 
instructions can be entered. 

Lines 1480-1750 cause the computer to carry out all of the 
instructions entered by the user. These lines also test for any hits. 
If a hit is encountered, the program is terminated or branches to the 
next player. 

Line 1760 tests to see if the user is close to point B. 

Line 1765 tests to see if the user has entered enough instruc- 
tions. 

Lines 1770-1820 display a message if a hit is encountered. 

Lines 1830-1890 ask if the user wants to try again after all have 
played. 

Lines 1900-1940 display a message indicating that there are 
not enough instructions to make it to point B. 

Lines 1950-2015 advance to the next player. 

Lines 2020-2050 display a message indicating that all have 
played and allow the user to try again! 

Line 2060 further tests to see if the player is at point B. Ifhe is 
not, the program branches back to line 1900. 

Lines 2070-2150 print the names of all players that have suc- 
cessfully made it to point B and then terminate the program. 
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CUBES 


INJECTOR: 


INJECTION 


In a laboratory there is a colony of bacteria. This colony was meant 
for experiments, but now it cannot be controlled. You'll have the 
honor of trying to destroy it. As many as five cubes of bacteria will 
race across the video one at atime. Your injector machine 1s located 
on the runner near the middle of the video. To inject, press the up 
arrow key. For an injection to work, it must hit directly in the 
opening of the bottom of the cube. If an injection 1s missed, the 
bacteria increase by one. To be successful, destroy all the cubes. 
Refer to pages 1-3 for information on the sound routine. Note that 
the IBM version of this program is included in Appendix A, and the 
Apple version in Appendix B. 


Sample Run 


> INJECTION < 


NUMBER TO PLAY? 4 

THE INITIALS OF PLAYERS. 
2 AA. 

? BB. 

C. 


.D. 


©) 


? 
? 


O 


YOU ARE HEAD OF A LABORATORY 
IN WHICH YOUR COMPANY IS 
INJECTING CUBES WITH 
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NUMBER OF 
PLAYERS 


NAMES OF | 
PLAYERS 


INSTRUCTIONS 


SET 
VARIABLES 


CUBE 
MOVEMENT 
CONTINUE 
N MOVEMENT 
Y 
ADVANCE 
N COUNTERS 
Y 
<> —_______»— 
. 
Y 
CLOSING 
MESSAGE 


| STOP 


Flowchart for Injection. 
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A SOLVENT TO DESTROY A COLONY 
OF BACTERIA THAT CANNOT BE 
CONTROLLED. THESE CUBES WILL 
RACE ACROSS THE SCREEN 5 AT A 
TIME. TO INJECT A CUBE, HOLD 

THE UP ARROW KEY. THE 

SOLVENT MUST GO IN THE OPENING 
AT THE BOTTOM OF THE CUBES. 


PRESS ENTER? 


EACH TIME A CUBE IS INJECTED, 
THE NUMBER RACING ACROSS THE 
VIDEO WILL DECREASE BY ONE, BUT 
NOT LESS THAN THREE WILL RACE 
ACROSS AT ONE TIME. A TOTAL 

OF 10 CUBES MUST BE INJECTED. 
IF AT ANYTIME YOU MISS AN 
INJECTION, THE NUMBER WILL 
INCREASE BY ONE. THE INJECTION 
MACHINE CAN BE MOVED LEFT OR 
RIGHT WITH THE LEFT AND RIGHT 
ARROW KEYS. GOOD LUCK... 


PRESS ENTER TO BEGIN? 
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Program Listing 


10 REM PROGRAM TITLE: INJECTION 
20 CLEAR 100 

30 RANDOM 

40 CLS 

50 PRINT"> INJECTION <¢" 

60 PRINT:S=31266 

70 INPUT"NUMBER TO PLAY (1-10)";U 

80 IF U<i OR U)10 THEN 70 

90 PRINT"THE INITIALS OF PLAYERS." 

100 FOR I=1i1 TO U: INPUT K$(1) 

110 NEXT: PRINT: PL=1 

120 PRINT" YOU ARE HEAD OF A LABORATORY" 
130 PRINT" IN WHICH YOUR COMPANY IS “ 

140 PRINT" INJECTING CUBES WITH" 

150 PRINT"A SOLVENT TO DESTROY A COLONY" 
160 PRINT"OF BACTERIA THAT CANNOT BE" 

170 PRINT“CONTROLLED THESE CUBES WILL" 
180 PRINT"RACE ACROSS THE SCREEN 5 AT A" 
190 PRINT"TIME. TO INJECT A CUBE, HOLD" 
200 PRINT'THE UP ARROW KEY. THE INJECTED" 
210 PRINT'SOLVENT MUST GO IN THE OPENING" 
220 PRINT'AT THE BOTTOM OF THE CUBES." 
230 PRINT 
240 PRINT 
250 INPUT" PRESS ENTER";L 
260 PRINT@64,CHR$(30) 

270 PRINT"EACH TIME A CUBE IS INJECTED," 
280 PRINT'THE NUMBER OF CUBES RACING ACROSS" 
290 PRINT"THE VIDEO WILL DECREASE BY ONE, BUT' 
300 PRINT"NOT LESS THAN THREE WILL RACE" 
310 PRINT"ACROSS AT ONE TIME A TOTAL" 
320 PRINT"OF 10 CUBES MUST BE INJECTED." 
330 PRINT“ IF AT ANYTIME YOU MISS AN‘ 
340 PRINT" INJECTION, THE NUMBER WILL" 
350 PRINT" INCREASE BY ONE. THE INJECTION" 
360 PRINT"MACHINE CAN BE MOVED LEFT OR" 
370 PRINT"RIGHT, WITH THE LEFT AND RIGHT" 
380 PRINT" ARROW KEYS. GOOD LUCK... " 

390 PRINT 

400 INPUT"PRESS ENTER TO BEGIN";L 
410 CLS: JN=0:T=1:1IN=10.E=0:CV=5:GOSUB 600 
420 REM THE CUBES 

430 X=65:¥=129:M=X N=Y:J=0:JJ=0 

440 PRINT@X,STRINGS (6,191); 
450 PRINT@Y,STRING$ (6,191), 

460 PRINT@Y+2,"  “; 
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970 X=X+8 . Y=Y+8:J=J+1:POKE S,293 
9480 IF JJ=i THEN 520 

9490 IF J)>)=CV THEN 310 

900 GOTO 440 

910 REM BLANK OUT 

5320 PRINT@M, STRINGS (6, 32) ; 

930 PRINT@N, STRINGS (6,32), 

92940 M=M+8 :N=N+8:SS=USR(0> 

9530 REM RECYCLE 

560 IF X)>)=128 THEN X=65:Y=129:JJ=1:GOTO 380 
9770 IF M)=128 THEN 430 

980 GOTO 720 

600 REM OUTER BORDER / INJECTOR 
610 FOR X=0 TO 127:SET(C(X,90) 

620 SETC(X,4946):SET¢(%,47) : NEXT 

630 FOR X=1 TO 45 

640 SET(0,X):SETC(1,X) 

650 SET(126,X):SET(127,X):NEKT 
660 PRINT@576,STRING$ (63,191), 
670 @Q=314:I8$=STRINGS5 (2,191): CA=0 
680 PRINT@QG,1$;:PRINT@770,"INJECTOR:", 
690 PRINT@642,"CUBES REMAINING: ",; 
700 PRINT@682, "CUBES ADDED:", 

710 PRINT@780,K5(PL); : RETURN 

720 REM INJECTION / INJECTOR MOVE 
730 IF R=8 THEN 790 

740 R=PEEK(14440) 

750 IF R=8 THEN 790 

760 IF R=32 THEN 9300 

770 IF R=64 THEN 960 

780 GOTO 440 

790 IF JN=1 THEN 810 

800 QQ=Q: JN=1 

610 IF Q@¢=1i#?1 THEN V=1:GOTO 860 
820 PRINT@Q," oar 

830 Q=Q-384:PRINT@G,1$,; 

835 IF PEEK(G+133604+2)=191 THEN 845 
840 GOTO 440 

845 IF PEEK(Q+15360-2)=191 THEN 1020 
850 GOTO 440 

860 PRINT@Q," -_ 

870 Q@=QQ+E:QQ=0:E=0 

880 PRINT@QG,1$;:IF V=z=l1 GOSUB 1140 
890 R=0:JN=0:GOTO 440 

900 REM TO LEFT 

910 IF Q¢=z516 THEN 440 

920 PRINTG@Q, " "y 

930 QsQ-T 
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940 PRINT@Q, I$, 

950 GOTO 440 

960 REM TO RIGHT 

970 IF Q@)>=#570 THEN 440 

980 PRINT@Q," "a 

990 GQuaQ+T 

1000 PRINT@Q,I$§&; 

1010 GOTO 440 

1020 IF PEEK(Q+15360-64)2191 THEN 1030 
1025 GOTO 440 

1030 IF PEEK(Q+15360-1)8191 THEN 1045 
1040 GOTO 440 

1045 I[F PEEK(Q+15360+1)2191 THEN 1060 
1050 GOTO 440 

1060 REM INJECTED 

1070 TeT+i:CV=CV-1:POKE S,255:SS=USR(0? 
10860 IF T>=«S$ THEN Te1 

1090 IF CV¢=2 THEN CVa9 

1100 IN=IN-1: PRINT@660,1N; 

1110 IF IN¢s0 THEN 1250 

1120 E=RND(5):1F £E+QQ)=572 THEN E=-RND(95) 
1130 GOTO 860 
1140 REM CUBE ADDED / INJECTION MISSED 
11530 IN=IN+1:POKE &,50:SS=USR(0) 

1160 CA=CA+1:V=0 

1170 T=T-1 

1180 IF T<¢=0 THEN T=1 

1190 PRINT@660,1N, 

1200 PRINT@693,CA; 

1210 RETURN 

1230 REM PLAYER ADVANCE 

1260 WCPL)=CA: PL=PL+1 

1270 IF PLOU THEN 1310 

1280 PRINT@770, "STANDBY ",KSC(PL),"..... a, 
1290 FOR YY=1 TO 1500:NEXKT 

1300 R=0:GOTO 410 

1310 FOR YY=1 TO 900:NEXT: CLS 

1320 PRINT"ALL PLAYERS HAVE HAD THEIR" 
1330 PRINT'TURN AT THE INJECTION MACHINE." 
1340 PRINT"SCORES ARE BASED ON THE NUMBER" 
1350 PRINT"OF CUBES THAT WERE ADDED DURING" 
1360 PRINT"THE INJECTION PROCESS." 

1370 PRINT: FOR T=1 TO UV 

1380 PRINT"INJECTOR: ";,KS(1) 

13990 PRINT"HAD" ,WCI);,"CUBES ADDED." 

1900 PRINT" FINAL SCORE EVALUATION: "; 
19410 W=W(I) 

1420 IF W>=0 AND Wé=5 THEN 1470 
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1430 IF W>=3 AND Wt=10 THEN 1480 
1490 IF W>=10 AND W¢=20 THEN 1490 
1430 PRINT"TO SORRY TO MENTION." 
1460 GOTO 13500 

19470 PRINT" EXCELLENT ":GOTO 1500 
1480 PRINT"FAIR.":GOTO 1500 

19490 PRINT" POOR." 

1500 FOR YY=1 TO 1200:NEXT YY: PRINT 
1310 NEXT I 

1520 PRINT 

1330 PRINT"END OF INJECTION." 
153940 END 


Variables and Strings 


S - Sound location (machine language) 

U - Number of players 1-10 

K$() - Initials of players 

PL - Total number of players, counter 1 to U 

JN - 0/1 variable; 1 means that QQ is already set to the amount of Q 
(before injection) 

IN - Total injections 

E - Random amount added to Q when it returns to its former location 
(after injection) 

X, Y,M,N,J,JJ - All for graphics of cubes 

SS - USR call, sound routine 

Q - Print @ location of injector 

1$ - Injector 

CA - Cubes added, injection missed 

R - Peek for users key closure 

QQ - Value of Q JN=1) before injection (Q location) 

T - Amount added to Q if cube is injected; this amount will not be 
larger than 4 

W(PL) - Player, number of cubes injected 

W - Value of W(PL) for print messages 


Explanation of the Program Lines 


Lines 10-400 accept the input of the number of players and 
their names, and display the general instructions. 

Line 410 initializes some variables, and uses lines 600-710 to 
set the outer border and print a message. 

Lines 420-570 draw the cubes (5) and blank out a portion at the 
lower center of each. Lines 440-580 also keep the cubes moving. 


312 


Lines 720-770 test for key closure and determine whether or 
not R is equal to 8. 

Line 780 recycles back to line 440 to keep the cubes moving. 

Line 790 tests whether or not JN=1. If it does QQ already 
contains the value of Q. This is the value before the injection. 

Line 800 sets the variable QQ to the value of Q, meaning that 
the user is ready to make an injection. JN is set to 1. 

Line 810 tests the value of Q for resetting purposes. Lines 
860-890 are used. 

Lines 820-850 tests to see if a cube has been injected. If one has 
been, the program will branch to the appropriate lines. 

Lines 900-950 allow the user to move the injector to the left. 

Lines 960-1010 allow the user to move the injector to the right. 

Lines 1020-1050 test peek(Q+15360 + or — an amount) to see 
if the cube has really been injected. 

Lines 1060-1130 are used when the cube had been injected. 
The variable IN is decreased by one. A random amount E, is added 
to Q so the user cannot expect another injection to occur in the same 
location at that moment. 

Lines 1140-1210 are used when the injection missed. Another 
cube 1s added. The total number of injections and cubes are printed 
in lines 1190 and 1200. 

Lines 1250-1310 go to the next player if PL (player counter) is 
less than U (total players). If this argument is satisfied, the program 
branches back to line 410. The variables are reset and the next 
player begins. 

Lines 1320-1540 terminate the program. All players’ names, 
their scores, and messages are printed. 
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. = FIGURE!!! | EN LN 


INTERCEPT 


This game requires you to intercept and possibly destroy any 
intruder that wanders into your dome. You have been given a ten 
day commission to guard this city within a dome. Some of the 
figures that enter the dome are alien; some are friendly. Within an 
allotted amount of time, you must decide which 1s which. It helps to 
remember the shape of the figures. Do not destroy the friendly 
intruders! Note that the IBM version of this program is included in 
Appendix A. 


Sample Run 


INTERCEPT 


INSTRUCTIONS? YES 

YOU ARE THE LEADER OF A SPECIAL 
GROUP KNOWN AS INTERCEPT. 

YOU WILL HAVE TO IDENTIFY AND 
POSSIBLY DESTROY ANY ALIENS THAT 
VENTURE IN THIS STERILIZED DOME 
WHERE ALL OF YOUR INHABITANTS 
LIVE. THE DOME, WHICH CONTAINS 
CROSSROADS, IS THE TERRITORY. 
NEAR THE EDGES OF THE SCREEN 
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Y 


PRINT 
INSTRUCTIONS 


OUTPUT 
GRAPHICS 


Y 
PRINT FIGURE 
MOVE FIGURE 


MOVE FIGURE 
DOWN 
MOVE 
FIGURE UP 
PEEK(A + 15360 


Y TEST LASER 
+ 72) = 32 


- FIRE [O 
INTRUDER IN 
DOME 
TEST ALL 
AMOUNTS 


RECHARGE 
LASER Y << N STOP 


INTRUDER HIT 


Flowchart for Intercept. 
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LEADER: 
PRESENT CONDITION: QUIET 


LASER STATUS: CHARGING 
DAYS ON COMMISSION: 10 


ARE TWO LASER CANNONS. 

THESE CANNONS WILL FIRE ONLY 
WHEN THE CORRECT KEY SEQUENCE 
HAS BEEN ENTERED BY YOU. 


PRESS ENTER PLEASE? 


AT RANDOM TIMES, DIFFERENT FIGURES 
WILL. APPEAR AT THE CENTER OF 

THE VERTICAL ROAD OF THE CROSS- 
ROADS. WHEN THE FIGURE IS AT THE 
CENTER IN LINE WITH YOUR LASER, 
YOU MUST DECIDE WHETHER IT IS ALIEN 
OR FRIENDLY. IF YOU BELIEVE THAT 

IT 1S THE LATTER OF THE TWO, DO 
NOTHING; JUST LET IT PASS. IF 

YOU BELIEVE IT IS ALIEN, FIRE THE 
LASER BY PRESSING THE RIGHT THEN 
THE LEFT ARROW KEYS, THEN FINALLY 
PRESSING THE SPACEBAR. YOU CAN 
HAVE THE LASER READY BEFOREHAND 
BY PRESSING THE ARROW KEYS TO 
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PRESS ENTER PLEASE? 


MAKE THE LASER READY, YOUR COM- 
MISSION WILL LAST 10 DAYS. IF 

YOU DESTROY 10 FRIENDLY IN- 
TRUDERS BEFORE THAT TIME, YOUR 
COMMISSION WILL BE TERMINATED 
BEFORE THEN. 

THE FINAL OBJECT IS TO DESTROY AS 
MANY ALIEN INTRUDERS AS YOU CAN 
BEFORE YOUR COMMISSION EXPIRES. 


YOUR LAST NAME, PLEASE? SMITH 


Program Listing 


10 REM PROGRAM TITLE: INTERCEPT 

20 CLEAR 200: RANDOM 

30 CLS:SS=31266 

40 PRINT CHR$(157);," INTERCEPT ";,CHRS (174) 
290 PRINT 

60 INPUT" INSTRUCTIONS (Y/N)";Q5 

70 IF @$S="N" OR G@$="NO" THEN 5320 

80 PRINT 

90 PRINT" YOU ARE THE LEADER OF A SPECIAL" 
100 PRINT"'GROUP KNOWN AS INTERCEPT." 

110 PRINT"YOU WILL HAVE TO IDENTIFY AND" 
120 PRINT" POSSIBLY DESTROY ANY ALIENS THAT" 
130 PRINT"'VENTURE IN THE STERILIZED DOME" 
140 PRINT’ WHERE ALL OF YOUR INHABITANTS" 
150 PRINT"'LIVE. THE DOME IS SQUARE AND" 

160 PRINT"'HAS A CROSSROAD WITHIN IT." 

170 PRINT"AT THE LEFT AND RIGHT EDGE OF THE 

HORIZONTAL" 

180 PRINT"ROAD ARE TWO LASER CANNONS. "' 

190 PRINT'THESE CANNONS WILL FIRE ONLY" 

200 PRINT'WHEN THE CORRECT KEY SEQUENCE" 
210 PRINT"'HAS BEEN ENTERED BY YOU." 

220 PRINT 

230 INPUT" PRESS ENTER PLEASE" ,Q§5 

240 CLS 

290 PRINT"AT RANDOM TIMES,DIFFERENT FIGURES" 
260 PRINT"WILL APPEAR AT THE CENTER OF" 
270 PRINT''THE VERTICAL ROAD OF THE CROSS-" 
280 PRINT'ROADS. WHEN THE FIGURE IS AT THE" 
290 PRINT'CENTER IN LINE WITH YOUR LASERS" 


317 


300 
310 
320 
330 
340 
390 
360 


370 
380 
390 
400 
910 
420 
430 
440 
430 
460 
470 
480 
490 
200 
210 
220 
930 
940 
290 
260 
970 
280 
290 


600 
610 


620 
630 
640 
690 
660 
670 
680 
690 
700 
710 
720 
730 
740 
790 
760 
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PRINT" YOU MUST DECIDE WHETHERIT IS ALIEN" 
PRINT"'OR FRIENDLY. IF YOU BELIEVE THAT" 
PRINT" IT IS THE LATTER OF THE TWO, DO" 
PRINT" NOTHING; JUST LET IT PASS. IF" 
PRINT" YOU BELIEVE IT IS ALIEN, FIRE THE" 
PRINT"LASER BY PRESSING THE RIGHT THEN" 
PRINT"'THE LEFT ARROW KEYS, AND THEN 
FINALLY" 

PRINT" PRESSING THE SPACEBAR. YOU CAN" 
PRINT"HAVE THE LASER READY BEFOREHAND" 
PRINT" BY PRESSING THE ARROW KEYS TO" 
INPUT" PRESS ENTER PLEASE",QS5 

CLS 

PRINT'MAKE THE LASER READY. YOUR COM-" 
PRINT'MISSION WILL LAST 10 DAYS. IF" 
PRINT' YOU DESTROY i0 FRIENDLY IN-" 
PRINT" TRUDERS BEFORE THAT TIME, YOUR" 
PRINT' COMMISSION WILL BE TERMINATED" 
PRINT" BEFORE THEN." 

PRINT" THE FINAL OBJECT ISTO DESTROY AS" 
PRINT" MANY ALIEN INTRUDERS AS YOU CAN" 
PRINT" BEFORE YOUR COMMISSION EXPIRES. '" 
PRINT 

PRINT 

INPUT" YOUR LAST NAME, PLEASE'",;P$ 

CLS 

REM INTERCEPT CROSSROADS 

XS=STRINGS (26,191) 

A=3:J=1 

PRINT@A,X$ :PRINT@A+320,X3$,; 
PRINT@A+30,X$;:PRINT@A+350, X5; 
A=A+649:J=J+lil 

IF J>=5 THEN 630 

GOTO $80 

AA=315:A$=CHRS5(157)4+CHRS§(183) 
AA$=CHR$(187)+CHR$(174) 
PRINT@A,AS;:PRINT@AA, AAS; 
PRINT@S81,"LEADER: ",;,P$ 

PRINT@645, "PRESENT CONDITION: “ 
PRINT@709, "LASER STATUS:" 

PRINT@773, "DAYS TO GQ ON COMMISSION: " 
REM GET FIGURES 

REM FRIENDLY 
F$(1)=CHR$(134):F$(2)=CHRS(139) 
F$(3)=CHR$(141):F5¢(4)=CHRS (153) 
F§(53)=CHR$ (166) 

REM ALIEN 
A$(1)=CHR$ (135) :A$(2)=CHRS(137) 


770 
780 
790 
800 
810 
820 
830 
840 
830 
860 
870 
880 
890 
900 
910 
920 
930 
7490 
950 
960 
970 
980 
990 
1000 
1005 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1115 
1120 
1125 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


A$(3)=CHRS(192):A$(4)=CHRS$ (158) 
AS§(53)=CHR$(173) 

REM DOUBLE SIZE 

FOR I=1 TO 5 

FSC ID =FSCID4+F$C(1) 
ASCID SAS CID 4AS CTI) 

NEXT: KiszA+2:K2=A+28 

REM DAYS / ALIEN /¢/ FRIENDLY 
DA=10:AI=0:FI=0:AD=0: FD=0:DF=0 


C$="QUIET ":CC$="ALERT" 
L$="CHARGING": LL$="READY " 
PRINT@667,C$,; 
PRINT@731,L$,; 
PRINT@798,DA,j 

REM START LOCATION 

L=5449 

REM CONDITION 

FOR T=1 TO 500 

I=RND( 5) 

N=RND(5) 

IF N=I THEN 1000 

NEXT T 

GOTO 940 

REM ALERT / INTRUDER 

IF T¢=200 THEN T=T+1:GOTO 1005 
X¥=0:LF2+1:XC=0:DS=0:YU=0 
PRINT@667,STRINGS (6,32); 
FOR Tz=1 TO 100:NEXT 
PRINT@667,CC$;:POKE S5S,100:S=USR(0> 
FOR TT=1 TO 150:NEXT 
X=X+i1:IF X<¢=4 THEN 1020 
PRINT@667," INTRUDER" ; 
R=RND( 2) 

IF R=2 THEN 1110 
PRINT@L,FS(N);:GOTO 1115 
PRINT@L,AS(N),; 

YU=YU+1 

IF E=0 THEN E=PEEK(15340) 
IF LF=4 THEN 1360 
MM=RND ( 2) 


IF MM=1 AND YU¢=70 THEN 1180 

IF L<=32 THEN 1520 

L=L-64: PRINT@L+6494,STRINGS$ (2,32); 
IF LF¢<=3 GOTO 1200 ELSE 1360 

IF L>=3944 THEN MM=2:GOTO 1150 
L=L+64:PRINT@L-64,STRINGS$ (2,32); 
IF E=32 AND LF=1 THEN 1240 

IF E=64 AND LF=2 THEN 1250 
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1Z220 
1230 
1240 
1290 
1260 
1270 
1z80 
1290 
i300 
1310 
1320 
1330 
1360 
1370 
1380 
1390 
1400 
1410 


1 AVE 
a 3a w 


1417 
1420 
1430 
1440 
14350 
1460 
1470 
1480 
19490 
i500 
1520 
1329 
1530 
1540 
1390 
1560 
1369 
1370 
1379 
1580 
1390 
1600 
1610 
1620 
1630 
1640 
1620 
1695 
1696 
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IF E=i28 AND LF=3 THEN 1260 

GOTO 1270 

LF=2:GOTO 1280 

LF=3:GOTO 1280 

LF=4:GOTO 1280 

E=0:GOTO 1090 

PRINT@837,"LASER KEY SEQUENCE:", 
PRINT LF-1:POKE SS,30:S=USR(0) 

IF LF=3 THEN 1320 

GOTO 1270 

PRINT@731,LL$, 

GOTO 1270 

REM FIRING 

IF R=i THEN 1390 
PRINT@L,AS$(N);,:GOTO 1400 
PRINT@L,FSC(N) ; 

PRINT@A+2,S5TRING$ (25,140) |; 
PRINT@AA-2Z295,S5TRINGS (25,140); 

FOR TT=1 TO 30 :POKE S5S,:15 :5=USRC0? 
NEXT 

IF PEEK(A+153360427)=32 THEN 1440 
GOTO 16950 

PRINT@731,05, :LF=1 

PRINT@837," INDIRECT HIT ny 
PRINT@K1,STRINGS (253,32), 
PRINT@K2,STRINGS (26,32); 

FOR TT=1 TO 20: POKE 55,45 
S=USR(0) : NEXT 

GOTO 1090 

REM INTRUDER IN DOME 

IF ¥U¢=50 THEN 1190 

PRINT@L, " a 

PRINT@837, "INTRUDER IS NOW IN DOME..." 
FOR TT=1 TO 30:POKE SS,90:S=USR(0) 
NEKT: PRINT@A+2, STRINGS (92,322 ; 
PRINT@837,CHR$(30);,:PRINT@S837, ; 
FOR TT=1 TO 200:NEXT: POKE &§5,175 
S=USR(0):I1F R=1 THEN 1590 


GOTO 1610 

PRINT" INTRUDER: FRIENDLY .." 
GOTO 1620 

PRINT" INTRUDER: ALIEN..." 


FOR TT=1 TO $300:NEXT 

IF xC¢=t THEN XC=XC+1:GOTO 1565 
GOTO 1670 

PRINT@837," INTRUDER: DESTROYED..." 
FOR TT=1 TO 20:POKE 5&SS5,TT+10 
S=USR(0):NEXT 


1660 DS=1:PRINT@L," "; :GOTO 13550 

1670 REM VARIABLE COUNT 

1680 PRINT@837,CHRS (30): PRINT@837, ; 
1690 IF DS=1 THEN 1810 

1700 IF R=1 THEN 1750 

1710 AI=AI+1 

1720 PRINT'YOU NOW HAVE"; AI;"ALIENS "; 


1730 PRINT" IN THE DOME." 
1740 GOTO 1790 


1750 FI=FIi+l 

1760 PRINT"YOU HAVE WISELY LET",FI;" 

1770 PRINT@?01,; 

1780 PRINT"OF THE FRIENDS PASS." 

1790 REM CONT IF DAYS >=1 

1800 GOTO 1900 

1810 REM DESTROYED 

1820 IF R=1i THEN 1870 

1830 AD=AD+i 

1840 PRINT"YOU HAVE DESTROYED";AD;"“ALIENS.'"' 

18530 GOTO 1900 

1870 FD=FD+1 

1880 PRINT FD;"FRIENDS HAVE NOW BEEN 
DESTROYED." 

1890 REM 

1900 REM DX FOR DAYS DECREASE 

1910 REM IF LESS THAN OR EQUAL TO 75 

1920 DX=RND(100) 

1930 IF DX¢=75 THEN DA=DA-1:DF=DF+1 

1940 FOR TT=1 TO 1200:NEXT 

1950 PRINT@837,STRING$(128,32); 

1960 IF DA¢=0 OR FD>=10 THEN 1980 

1970 FOR TT=1 TO 20.POKE SS,20:5=USR(0) 

1973 NEXT:GOTO 860 

1980 PRINT@837,,:I1F FD=10 THEN 2010 

1990 PRINT"YOUR COMMISSION HAS EXPIRED. ." 

2000 GOTO 2020 

2010 PRINT" YOUR COMMISSION IS TERMINATED..." 

2020 FOR TT=1 TO 2000:NEXT 

2030 CLS 

2040 PRINT" DURING YOUR";DF,"DAY COMMISSION" 

2050 PRINT" YOUR RECORD IS AS FOLLOWS: ";P$,; 

2060 PRINT," 

2070 PRINT"ALIENS ALLOWED TO PASSINTO DOME:"; 

2080 PRINT AI 

2090 PRINT"ALIENS DESTROYED: ";AD 

2100 PRINT" FRIENDLY INTRUDERS DESTROYED:";FD 

2110 PRINT 

2120 IF FD)=10 THEN 2240 
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2130 
z2140 
Z2150 
2160 
2170 
z180 
2190 


2200 
2210 
2220 
2230 
2240 
2220 
2260 
2270 
2280 
2290 


PRINT" YOUR COMMISSION HAS BEEN TERMED: " 
IF AD>=1 AND ADC=5 THEN 2170 

IF AD>=5 AND ADS=9 THEN 2190 

IF AD>=10 THEN 2210 


PRINT" IMPROPER. POOR USE OF LASER." 
GOTO 2270 

PRINT"'FAIR. LASER USED, BUT NOT 
ENOUGH. " 

GOTO 2270 

PRINT"EXCELLENT. ALL JUDGEMENTS WERE" 


PRINT'"MADE WITH UTMOST CAUTION. " 

GOTO 2270 

PRINT"YOU HAVE DESTROYED"; FD; "FRIENDLY" 
PRINT" INTRUDERS ";P5;" DO NOT ATTEMPT" 
PRINT"TO RETURN TO THIS COMMISSION." 
PRINT 

PRINT'TERMINATION OF PROGRAM." 

END 


Variables and Strings 


SS - Sound location 

P$ - User’s last name 

X$ - Crossroads graphics 

A,J,AA - For graphics 

A$, AA$ - Laser cannons, left and right 

F$(1-5) - Figures, friendly 

A$(1-5) - Figures, alien 

K1,K2 - For blanking laser after firing 

DA - Total days on commission 

AI - Alien intruders in dome 

FI - Friendly intruders in dome 

AD - Aliens destroyed 

FD - Friendly intruders destroyed 

C$, CC$, L$, LL$ - For status message printout 

L - Start location, intruder 

I,N - Random amounts which determine when an intruder enters the 
dome 

T - For-next loop, for above variables 

X - For message printout (flashing) 

LF - For noting if keys have been pressed in correct sequence 

XC - For message printout (flashing) 

DS - Intruders destroyed, alien or friendly 

YU - Counter, figure up at highest point 
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R - Random selection: alien or friendly 

E - Key closure by user 

5S - USR call for sound output 

DX - Random variable. If less than or equal to 75 DA (days on 
commission) it will decrease by 1 

DF - For message indicating the number of days on commission 


Explanation of Program Lines 


Lines 10-520 display the general instructions. 

Line 530 has the user input his or her last name. 

Lines 540-620 create the graphics for the crossroads and the 
four large squares. 

Lines 630-690 establish the graphics for the lasers and display 
general messages. 

Lines 700-780 establish the strings for the friendly and alien 
figures. 

Lines 790-830 double the size of each figure. The variables set 
in line 830 are used for blanking out the laser after firing. 

Lines 840-900 set more variables and print messages and 
values on the video. 

Lines 910-920 determine the location the figure will start at. 

Lines 930-990 maintain the present condition until N= I. The 
program will then branch to an alert and complete alert will be 
sounded when T= 200 in line 1005. 

Line 1010 sets more variables before the figure is moved. 

Line 1020-1070 present the alert message with the appropriate 
sounds. 

Line 1080 randomly selects whether intruder is alien or 
friendly. 

Lines 1100-1110 print the figure that was selected. 

Line 1115 increases the counter YU by 1. 

Line 1120 tests the value of E for key closure. 

Line 1125 tests the value of LF. If LF is equal to 4, laser is 
ready to fire. 

Lines 1130-1190 move the figure up or down, depending on the 
value of MM. 

Lines 1200-1220 check the key closed with the value of LF. 
The only way the laser will fire is if all keys are pressed in the 
proper sequence. 

Lines 1230-1270 increases the value of LF with each key 
closure. If E is equal to none of the values specified (line 1230), it 
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will equal 0 (zero), and the movement of the figure will continue at 
line 1090. 

Lines 1360-1470 cause the firing of the laser with a sound 
output. 

Line 1420 tests the value of the peek location, to see if figure 
was hit. If argument is true, the program will branch to line 1650. 

Lines 1440-1500 display a message indicating that there was an 
indirect hit to the figure and produced a sound. The laser will then 
be blanked out while the figure continues moving. The laser is then 
ready to accept another key sequence to fire. All of this will take 
place in split seconds. 

Lines 1520-1640 display a message indicating that an intruder 
has come into the dome. 

Lines 1650-1660 display a message indicating that the alien has 
been destroyed. 

Lines 1670-1890 display messages indicating how many aliens 
are in the dome, how many the user destroyed, and how many of 
those destroyed were friendly. 

Lines 1900-1975 decrease the number of days in the user’s 
present commission if DX (random) is less than or equal to 75. Line 
1960 tests the values of both DA (days) and FD (friendly intruders 
destroyed). If either condition is met, the program is terminated. 

Lines 1980-2290 are used when the user’s commission has 
expired. All relevant figures are displayed, and the user’s perfor- 
mance is evaluated. If the user has destroyed 10 friendly intruders, 
he or she cannot come out ahead. 
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Appendix A 
Program Listings for the IBM PC 


The following listings have been created especially for use on the 
IBM PC. Note that the caps lock key must be in effect in order to use 
the games. Also note that you should enter YES or NO, rather than 
Y or N unless the prompt indicates otherwise. 
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Hold Time for the IBM PC 


] 
3 
be) 


10 

15 
100 
105 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 


205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 
265 
2/0 
275 
295 
300 
305 
310 
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REM program title:HOLD TIME 


CLEAR 


V$=RIGHT$(TIME$, 2): 


350 


number generator 
V=VAL(V$) 
RANDOMIZE V 


WIDTH 


40:COLOR 15,9,14 


CLS: KEY OFF 


PRINT 


PRINT: 
IF Z$= 
PRINT: 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


TAB(15)"HOLD TIME":GOSUB 1050 

INPUT "INSTRUCTIONS"; Z$ 

'N" OR Z$="NO" THEN CLS:GOTO 275 
CLS 

"HOLD TIME...A MATTER OF HIGH OR" 
"LOW POINT TOTALS. THE COMPUTER'S" 
"CRAFT WILL BLIP ALL AROUND YOUR" 
"VIDEO. DOWN THE LEFT AND RIGHT" 
"SIDES WILL BE ASTERISKS. THESE" 
"ARE YOUR LASERS. AT THE INSTANT" 
"YOU THINK THE CRAFT IS IN LINE" 
"WITH THESE, HOLD THE SPACE BAR" 
"YOUR LASERS WILL START MOVING" 
"TOWARD THE CENTER. THE COMPUTER" 
"CRAFT WILL ALSO CONTINUE TO MOVE." 


GOSUB 1000:INPUT "PRESS ENTER TO CONTINUE" 


X$:CLS: PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


"YOU CAN 'HOLD' THE COMPUTER'S" 
"CRAFT FROM MOVING FOR AN AMOUNT" 
"OF TIME, ROUGHLY 20 SECONDS." 
"POINTS WILL RANGE FROM 1500 TO " 
"400, DEPENDING ON WHERE YOU" 
"DESTROY THE CRAFT (TOP OR BOTTOM)" 
"ON THE SCREEN. TIME LIMIT FOR THE" 
"ENTIRE RUN WILL BE JUST ABOUT" 
"FIVE MINUTES. THIS WILL BE NOTED" 
"AT THE LOWER RIGHT OF YOUR SCREEN" 
"COUNT STARTS AT 30." 

"TO 'HOLD' THE COMPUTER'S" 

"CRAFT, PRESS THE <CTRL> KEY":GOSUB 1025 


INPUT "PRESS ENTER TO BEGIN" ,X$:CLS 


DEF SEG=&H40:POKE &H17,0:C$="<X>" 

REM outer graphics points 
Q$=STRING$(38, 42) :MR=8 :MC=16:MMR=1 :MMC=1 
G=0:PI=16:LOCATE 1,1:PRINT Q$:LOCATE 16,1: 


PRINT 


QS 


"use PC clock to seed random 


LOCATE 2,34:PRINT "20";:FOR XR=2 TO 15:XC=l 
LOCATE XR,XC:PRINT LEFT$(Q$,1)3;:SOUND 10* 
(50-XR) ,1 
PRINT TAB(40) LEFT$(Q$,1);:GOTO 500 
IF MMR<>1 AND MMC<>1 THEN GOSUB 355 
NEXT 
LOCATE 1,1:PRINT STRING$(40,32)3;:LOCATE 16,1: 
PRINT STRING$(40, 32) 
FOR XR=2 TO 15:XC=1 
LOCATE XR,XC:PRINT CHR$(32)3;:PRINT TABC40)CHR$ 
(32);:SOUND 70-XR,3 
GOSUB 355:NEXT:GOSUB 355:GOTO 310 
LOCATE 16,35:PRINT ABS(INT(TT/60)-30); 
LOCATE MMR ,MMC:PRINT STRING$(5,32); 
IF MR<=2 OR MR>=15 THEN MR=7 
COLOR 10:LOCATE MR,MC:PRINT C$;:TT=TT+1:COLOR 15 
IF TT>=1800 THEN 830 
MMR=MR :MMC=MC: DEF SEG=&H40:W=PEEK( &H17) 
IF W=4 AND G<=20 THEN G=G+.4:GOSUB 770:RETURN 
XX=INT(RND*44+1):REM craft move 
ON XX GOTO 380,390,400,410 
REM left move 
MC=MC-INT(RND*5+1):GOTO 420 
REM right move 
MC=MC+INT(RND*54+1):GOTO 420 
REM up move 
MR=MR-1:GOTO 420 
REM down move 
MR=MR+1:DEF SEG=&HB800:IF PEEK(82)=32 THEN GOSUB 
700 ‘location of message from lines 745-762 
IF PEEK(146)=32 THEN GOSUB 700 "location of 
message from line 315 


IF PEEK(1126)=32 THEN GOSUB 700: ‘location of 
message from line 705 
IF PEEK(1186)=32 THEN GOSUB 700: ‘location of 


message from line 715 

IF MC<=3 THEN MC=40:MR=MR-1 
IF MR<=2 AND MC<=2 THEN 410 
IF MC>=35 THEN MC=1:MR=MR+1 
IF MR>=15 AND MC>=35 THEN 400 
SOUND 440,3:RETURN 

REM fire 

IF XR<=14 THEN W$=INKEY$ 
PI=PI-1:1F W$="" THEN 330 
IF W$=" " THEN 525 

GOTO 330 

REM laser advance 
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IF XR>=13 AND XC>=30 THEN 330 
IF XR<=2 AND XC<=40 THEN 330 
DEF SEG=&HB800: HR=XR:HC=XC :H1=(HR-1 )*80: 
H2=H1+78: UN=UN+1:S2=1000 
IF RP=1 THEN LOCATE 2,20:PRINT ABS(R-UN); 
DEF SEG=&HB800:POKE H1,32:POKE H2,32: 
IF PEEK(H1+2)<>32 OR PEEK (H2-2)<>32 THEN 570 
H1=H1+2:H2=H2-2:S2=S2-10:SOUND S2,3 
POKE H1,42:POKE H2,42 
IF ABS(H2-H1)<=4 THEN 900 
GOSUB 355:GOTO 540 
REM direct hit 
POKE H1,42 
IF PEEK(H2-2)<>32 THEN 600 
POKE H2,32:H2=H2--8 
POKE H2,42 
FOR O=1 TO 2:SOUND 1000,3:SOUND 800,3:NEXT: 
GOTO 580 
REM delete 
Z=1:POKE H1,32:POKE H2,32 
N=(MR—1 )*80+(MC-1)*2:S1=2200 
DEF SEG=&HB800: POKE N,32:POKE N+2,32 
POKE N+4,32 
J=2* INTCRND*5 ) 
IF N+J-80>=158 THEN 640 
GOTO 660 
POKE N+J-80,42:POKE N+J+80-J, 42 
FOR I=] TO J*10:NEXT 
POKE N+J-80,32:POKE N4+J+80-J , 32 


GOTO 675 

POKE N+J+80,42:POKE N+J+80-J, 42 

FOR I=1 TO J*10:NEXT 

POKE N+J+80 ,32:POKE N+J+80-—-J , 32 

IF Z<=7 THEN 685 

SOUND 1000,3 

IF RP=0 THEN GOTO 690 ELSE PI=PI+1:GOTO 695 
Z=Zt+1:SOUND 220,3:GOTO 625 
PI=PI4+1:X$=X$+"4" 
PP=PP+PI*100:GOSUB 700:GOTO 900 
A$="TOTAL POINTS:":T$="TIME LAPSE:" 
FR=15:FC=3 
FOR I=1 TO LEN(A$) 
LOCATE FR,FC+25:PRINT(MID$(T$,1,1)); 
LOCATE FR,FC:PRINT MID$(A$,I,1); 
FC=FC+1: NEXT 

PRINT PP;:1F RP=1 THEN 735 

IF X$=""' THEN RETURN 


735 
740 
745 
750 
755 
760 
762 
765 
770 
7715 
780 
785 
790 
795 
800 
805 
810 
820 
830 
835 
840 
845 
850 
855 
860 
865 
870 
875 
900 


905 
910 
915 
920 
925 
930 
935 
940 
945 
950 
955 
960 
965 
970 
975 
980 
985 
990 


REM reserve power 
R$="RESERVE POWER:" 

FR=2:FC=2 
FOR I=1 TO LEN(R$) 

LOCATE FR,FC:PRINT MID$(R$,1I,1); 
FC=FC+1: NEXT 

IF RP=1 THEN X$=STR$( ABS(R-UN) ) 
PRINT X$; 

TI$="HOLD TIME:":REM hold time 
DEF SEG=&HB800:IF PEEK(1186)<>32 THEN 790 
FR=2:FC=25:FOR I=1 TO LEN(TI$) 


LOCATE FR,FC:PRINT MID$(TI$,1I,1)3;:FC=FC+1:NEXT 


LOCATE 2,36:PRINT INT(ABS(G-20) ); 
RETURN 

REM time remaining 

IF RP=1 THEN DK=1:GOTO 910 

IF TT>=1800 THEN 830 

GOTO 300 

FOR TiI=1 TO 1200:NEXT 

CLS :R=LEN( X$) 

IF R=0 THEN 960 

PRINT "VERY WELL DONE...." 

PRINT "YOU HAVE ";R;" UNITS OF" 
PRINT "RESERVE POWER...." 

PRINT "PRESS ENTER TO USE"; 

INPUT X$:TT=0:RP=1:UN=0 

CLS 

GOTO 300 

DEF SEG=&H40:POKE &H17,0:REM delete reserve 
units 

IF RP=0 THEN 330 

IF UN>=R THEN 925 

IF DK=0 THEN 330 

DK=0:GOTO 810 

REM finish 

FOR TI=1 TO 1200:NEXT 

CLS 

PRINT "RESERVE POWER EXHAUSTED..... " 
PRINT "TOTAL POINTS ACCUMULATED: '";PP 
PRINT 

GOTO 980 

PRINT "YOU HAVE DESTROYED NOTHING" 
PRINT "YOU HAVE NO RESERVE POWER." 
PRINT 

GOTO 945 

PRINT 

PRINT “END OF RUN." 

GOSUB 1025:END 
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1000 
1010 


1020 
1025 
1030 


1040 
1050 
1060 
1070 


330 


OUTERSPACE$="MN O1 L1 F 02 C ML F L2 F P8 L8 A" 
PLAY "MB XOUTERSPACE$;L1 G+ L2 G+ P8 L8 G+ Ll A 
L2 A;" 

RETURN 

OUTERSPACE$="MN O1 L1 F 02 C ML F L2 F P8 L8 A" 
PLAY "MB XOUTERSPACE$;L1 B- L8 B- O03 DE L4 F G 
L1 A L2 A;" 

RETURN 

BACKGROUND$=""*MB MS 01 L4 FC FCFEC FC" 

PLAY "MB XBACKGROUND$;" 

RETURN 


Elevator for the IBM PC 


REM program title: elevator 

V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 

V=VAL(V$) 

RANDOMIZE V 

CLS:KEY OFF:WIDTH 40:W$="$$#####. ##" 

DEF SEG=&HB800 

DIM F(60) ,F$(60) ,G$(60) ,GK(60) 

PRINT TAB(10) "#3 ELEVATOR %#%" 


PRINT 


BEEP:PRINT "INSTRUCTIONS REQUIRED (Y/N)"; 


INPUT 


I$:IF I$="N" THEN N=1 


BEEP: INPUT "FIRST NAME"5N$ 


PRINT: 


IF N=1 THEN 230 


BEEP: INPUT "PRESENT OCCUPATION"; P$ 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"YOU HAVE JUST BEEN FIRED AS A"; 

P$s"ri" 

"BUT, YOU ARE IN LUCK!! I HAVE JUST" 
"HTRED YOU TO BE AN ELEVATOR ATTENDANT" 
"IN MY COMPUTERIZED DEPARTMENT STORE." 
"YOUR JOB WILL BE SIMPLE, ";N$;". ALL" 
"YOU HAVE TO DO IS REMEMBER WHAT IS" 
"CONTAINED ON EACH OF SIXTEEN FLOORS" 

"SO THAT YOU CAN TAKE ALL OF MY CUSTOMERS" 
"TO THE RIGHT LOCATION..." 


REM what's on each floor? 


FOR I= 


2 TO 19:READ F$(1I):NEXT 


IF N=1 THEN 370 ELSE GOSUB 2150:PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
PRINT 


FOR [= 


SOUND 


"T ALMOST FORGOT TO TELL YOU--THE" 
"CUSTOMERS, WHEN STEPPING ONTO THE " 
"ELEVATOR, WILL TELL YOU WHAT THEY ARE" 
"SHOPPING FOR. THEY WON'T TELL YOU " 
"AGAIN, BUT FOR EVERY CUSTOMER YOU PLACE" 
"ON THE RIGHT FLOOR, YOU'LL BE PAID " 
"¢10.00. THAT WILL BE YOUR ONLY WAGE!" 
"CUSTOMERS WILL BE GETTING ON AND OFF THE" 
"ELEVATOR AT DIFFERENT STOPS, AND YOU " 
"WILL NEED TO REMEMBER THESE, TOO, " 
Nos" 

2150 

"HERE ARE THE FLOORS AND CONTENTS:" 

2 TO 16 

50*I+100,3:PRINT I;") ";F$(I); 
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IF [=8 


THEN TT=I*400:PRINT:GOSUB 2190 


IF [I>=2 AND I<=5 THEN 440 
IF I>=6 AND I<=10 THEN PRINT :GOTO 470 


IF I>= 
IF I>= 


11 AND I<=14 THEN 450 
15 AND I<=16 THEN 460 


PRINT " ";F$(17):GOTO 470 

PRINT " ";F$(18):GOTO 470 

PRINT " ";sF$(19) 

IF RX=1 THEN RETURN ELSE NEXT 

REM variable rx for print elements 


FOR I= 


1 TO 6:PRINT: NEXT: TT=TT+2800 


GOSUB 2190:CLS:C=0:GK=0 


SOUND 440,3:PRINT "YOU SHOULD BE ALL SET, ";N$ 
TT=TT- 


1800:GOSUB 2190:RX=1 


REM get customers 
C=INT(RND*10+1) 


PRINT 
PRINT 


N$;" YOU NOW HAVE";C;"CUSTOMER(S)" 


"GETTING ONTO MY ELEVATOR.":FOR KO=1 TO 


C:SOUND KO*100, 2: NEXT 
REM get c responses 


T=] 


REM floor number 


F=INT( 


RND*14+2) 


F(I)=F:I=I+1:GK(F)=GK(F)+1 


IF I<= 


C THEN 590 


REM floor titles 


FOR I= 
G$(1)= 
NEXT 


GOSUB 
PRINT 
PRINT: 
PRINT 
F=F(T) 


IF F>= 
IF F>= 
IF F>= 


PRINT 


1 TOC 
F$CF(T)) 


2190: PRINT 
"THE CUSTOMERS' DESTINATIONS:":FL=1 
FOR I=FL TO C 
G$(I)3""'; 


2 AND F<=5 THEN 760 
11 AND F<=14 THEN 770 
15 AND F<=16 THEN 780 
" FLOOR" 


NEXT:GOTO 790 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
CLS 

SOUND 
SOUND 
PRINT 


440:GOTO 750 
450:GOTO 750 
460:GOTO 750 
2150 


100,1:PRINT "PRESS <U> FOR <UP>" 
200,1:PRINT "PRESS <D> FOR <DOWN>" 
“THEN ENTER THE FLOOR NUMBER" 


NN=0:REM direction 
GOSUB 2160 


D$=A$:IF D$="U" THEN D$="UP":GOTO 870 
5 IF D$="D" THEN D$="DOWN" 

GOTO 870 

SOUND 100,1:PRINT "DIRECTION: ";D$ 


SOUND 200,1:PRINT "FLOOR NUMBER"; 
INPUT FR:SOUND 100+25*FR,3 
IF FR=1 AND TF=0 THEN 1280 
IF FR<1 OR FR>16 THEN 800 


> IF FR=TF THEN 1280 


IF FR<TF AND D$="UP" THEN 1260 
IF FR>TF AND D$="DOWN" THEN V=1:GOTO 1260 
GOSUB 2190:CLS:REM pause before start 


IF D$="UP" THEN 970 

IF D$="DOWN" THEN 1040 

BEEP:PRINT "SELECT A DIRECTION, ";N$;"!1" 
PRINT:GOTO 810 

REM up 

IF TF>=17 THEN 1030 

GOTO 1300 

SOUND 200,3:SOUND 100,4:PRINT "YOU ARE ON THE 


".T¢." FLOOR, "3N$ 

PRINT "YOU CAN NOT GO ANY "sH$s"t1" 
GOTO 960 

T$="TOP": H$="HIGHER":GOTO 1000 
IF TF<=1 THEN 1060 

GOTO 1070 

T$="BOTTOM" :H$="LOWER":GOTO 1000 
REM down continued movement 
FS=P+640:NN=1 

IF FF>=58 AND FF<=64 THEN 1220 
POKE P,FF:SOUND 100*FF-4500, 1 
FOR T=1 TO 40:NEXT 

POKE P,32:POKE P+2,32:P=P+80 

IF P<>FS THEN 1085 

REM continue if not on floor 

IF TF<>FR THEN 1160 

GOTO 1500 

FS=FS+560 

IF P>=1244 THEN 1190 

GOTO 1085 

POKE P,32:POKE P+2,32:P=280 
FS=P+640: FF=FF-1:TF=TF-1 

GOTO 1085 

REM floors above 9 

POKE P,49:POKE P+2,FF-10:SOUND 100*FF-4500, 1 
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1240 
1250 
1260 
1265 


1270 
1275 
1280 
1290 
1300 
1310 
1320 
1325 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1500 
1510 
1520 
1530 
1540 
1550 
1560 


1565 
1570 
1580 
1590 
1600 
1610 
1620 
1630 


1640 


1645 
1650 
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IF NN=1 THEN 1100 

GOTO 1340 

PRINT "IF WANTING TO GO ":D$;", USE A" 

IF V=l THEN V=0:PRINT "USE A LOWER NUMBER." 
:GOTO 1275 

PRINT "HIGHER NUMBER THAN THIS FLOOR." 
GOTO 1290 

PRINT ''YOU ARE ON THAT FLOOR, ";N$;"!IE" 
GOSUB 2190:GOTO 800 

REM up movement 

IF TF=0 THEN 1460 

FS=P—640: IF FS<=278 THEN FS=280 

IF FF>=58 AND FF<=64 THEN 1220 

POKE P,FF:SOUND 100*FF-4500, 1 

FOR T=1 TO 50:NEXT 

POKE P,32:POKE P+2,32:P=P-—80 

IF P<>FS THEN 1325 

REM continue if not on floor 

IF TF<>FR THEN 1400 

GOTO 1500 

FS=FS-560 

IF P<=278 THEN 1430 

GOTO 1325 

POKE P,32:POKE P+2,32:P=1240 

FS=P-—640: FF=FF+1:TF=TF+] 

GOTO 1325 

TF=1:P=920:FF=49 

FS=P—560:GOTO 1325 

REM on floor requested 

IF FF>=58 AND FF<=64 THEN 1530 

POKE P,FF:GOTO 1540 

POKE P,49:POKE P+2,FF-10 

FOR I=1 TO C 

IF FR=F(1) THEN 1570 

NEXT: IF GK(FR)>=1 THEN XX=1]1:PA=PA+10*GK(FR): 
KG=KG+GK (FR) :GKCFR)=0 

GOTO 1600 
PA=PA4+10:KG=KG+1:GK(FR)=GK(FR)-1 
F(I)=0:XX=1 

GOTO 1560 

REM did customers want off here 
IF XX=0 THEN 1630 

XX=0:GOTO 1770 

PRINT N$;", NO CUSTOMERS WANTED TO GET OFF": 
SOUND 200,3:SOUND 100,4 

PRINT "ON THIS FLOOR...":NC=NC+I1 
HJ=HJ+1:IF HJ>=4 THEN HJ=0:FZ=1 


REM more customers stepping on 


1655 AA=INTCRND*2+1):IF JV=1 THEN AA=1:FZ=0 

1660 IF FZ=1 OR FR=1 THEN AA=1:FZ=0 

1670 IF AA=1 THEN 1690 

1680 GOTO 1730 

1690 YU=INTCRND*5+1) :YY=C:C=C+YU:C2=YU 

1700 IF C>=59 THEN JV=1:C=C--C2:GOTO 1730 

1710 REM get destinations 

1720 GOTO 1800 

1730 REM continue if not finished 

1740 KG=0:IF GK>=C THEN 1940 

1750 GOSUB 2190 

1760 GOTO 800 

1770 FOR KO=1 TO KG:SOUND KO*100,2:NEXT:PRINT KG; 
"OF THE CUSTOMERS JUST" 

1780 PRINT "STEPPED OFF MY ELEVATOR, "3 

1785 PRINT N$;".':GOSUB 2700 

1790 GK=GK+KG:GOTO 1650 

1800 REM yy more destinations 

1810 YU=ABS(C-YY):IF GK>C OR GK>=10 THEN 1940 

1820 PRINT N$;", YOU JUST HAD"; YU;'"MORE" 

1830 PRINT "CUSTOMERS STEP ONTO THE" 

1840 PRINT "ELEVATOR. THE DESTINATION(S):" 

1850 KG=0:PRINT:FOR I=YY+1 TO C 

1860 F=INT(RND*(16)+1) 

1865 IF F=TF THEN 1860 

1870 IF F=1 THEN F$(1)="GROUND":FZ=1 

1880 F(I)=F:NEXT:REM floors 

1890 REM title of floors 

1900 FOR I=YY+1 TO C 

1910 G$(I)=F$CFCI)) :NEXT 

1920 FL=YY+1 

1930 GOTO 680 

1940 REM stop/cont 

1950 PRINT:PRINT "YOU HAVE NOW COLLECTED:" 

1960 PRINT USING W$;PA:PRINT:GOSUB 2190 

1965 PRINT:GOSUB 2500 

1970 IF JV=1 OR GK>=C THEN 1990 

1980 GOSUB 2190:GOTO 800:REM all not off 

1990 PRINT:GOTO 2300 

2000 REM data for floors 

2010 DATA WOMENS ,MENS ,CHILDRENS , INFANTS 

2020 DATA TOYS,CARPETS , COMPUTERS 

2030 DATA APPLIANCES , FURNITURE , HARDWARE 

2040 DATA HOBBY ,AUTO,OFFICE 

2050 DATA BATHROOM , BEDROOM 

2060 DATA CLOTHES , SUPPLIES , ITEMS 

2070 REM data element 17 will be used 

2080 REM with elements 2-5 
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2090 REM data element 18 will be used 
2100 REM with elements 11-14 

2110 REM data element 19 will be used 
2120 REM with elements 15 & 16 

2150 PRINT: PRINT "PRESS A KEY...':SOUND 440,3 
2160 A$=INKEY$ 

2170 IF A$="" THEN 2166 

2180 RETURN 

2190 REM time loop 

2200 FOR T=1 TO TT:NEXT 

2210 GOTO 2180 

2300 REM continue? 

2310 PRINT "WOULD YOU LIKE TO TAKE ON" 
2320 PRINT "SOME MORE CUSTOMERS, ";N$;"?" 
2330 PRINT “YOUR TOTAL EARNINGS:"; 

2340 PRINT USING W$;PA; 

2350 INPUT A$ 

2360 IF A$<>"Y" AND A$<>"YES" THEN 2400 
2370 TT=2000:JV=0: PRINT 

2380 PRINT "YOU ARE ON FLOOR ":;TF 

2390 NC=0:GOTO 490 

2400 PRINT 

2410 PRINT “END OF ELEVATOR" 

2420 END 

2500 REM point scale/pay deduction 

2510 IF NC<=0 THEN NC=0:RETURN 

2520 PRINT "YOU MADE";NC;"STOPS THAT WERE" 
2530 PRINT "NOT NECESSARY, "3N$;''. YOU" 
2540 PRINT “WILL TAKE A DEDUCTION IN PAY" 
2550 PRINT "OF $20.00 FOR EACH ONE OF" 
2560 PRINT "THOSE STOPS, TOTAL"; 

2570 NN=NC*20: PRINT USING W$;NN 

2580 PRINT “LEAVING YOU"; 

2590 PA=PA-—NN 

2600 PRINT USING W$;PA:GOSUB 2190 

2610 RETURN 

2700 REM any tips? 

2710 IF KG<=1]1 THEN RETURN 

2720 AA=INTCRND*2+1 ) 

2730 IF AA=1 THEN RETURN 

2740 TI=INTCRND*100+1 ) 

2750 PA=PA+TI 

2760 PRINT 

2770 PRINT "YOU'RE IN LUCK "sN$;", A™ 


2780 PRINT "NICE CUSTOMER JUST GAVE " 
2790 PRINT "YOU A TIP OF"; 


2800 PRINT USING W$;TI 
2810 GOSUB 2190:RETURN 
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Farewell for the IBM PC 


REM program title: FAREWELL 

V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 

V=VAL(V$) 

RANDOMIZE V 

WIDTH 40:KEY OFF:COLOR 1,14,11:CLS:PRINT TAB(12) 
N#i% FAREWELL *##*":GOSUB 1350 


PRINT 


INPUT "NUMBER PLAYING (1-10)"3A 
IF A<1 OR A>10 THEN 25 
PRINT "THE "3A;" PLAYERS'FIRST NAMES":PLAY "O1A" 


FOR I= 


INPUT 


1 TO A 
Q$(1):SOUND 50+20*I ,3:NEXT 


PRINT: U=1 


PRINT 
INPUT 


"ANY OF YOU NEED TO SEE" 
"THE INSTRUCTIONS" X$ 


IF X$<>"Y" AND X$<>"YES" THEN 210 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 


"READ CAREFULLY, IT COULD MEAN" 

"YOUR LIFE (OR THE GAME!!)..." 

"EACH PLAYER WILL SEE AND STUDY A" 
"MATRIX OF 6 BY 5 SQUARES (POSITIONS)" 
"THESE WILL RANGE FROM THE " 

"LETTERS A THROUGH Z WITH" 

"FOUR SPACES BLANK. TO PLAY:" 

"THE COMPUTER WILL SELECT FIVE" 
"POSITIONS AND PLACE COBRAS" 

"WITHIN EACH. THE COMPUTER WILL" 

"SHOW YOU WHERE THREE OF THE COBRAS ARE” 
1340:PRINT: INPUT "PRESS ENTER, PLEASE: "; X$ 


"NOW THE COMPUTER WILL SELECT A" 
"POSITION AND FLASH AN ASTERISK" 

"THERE. EACH PLAYER MUST ENTER FROM" 
"MEMORY THE NUMBER WHICH WAS IN THAT" 
"POSITION. IF CORRECT, THE PLAYER" 
"GAINS 1000 POINTS; IF INCORRECT, THE" 
"PLAYER LOSES 1000 POINTS. AND...IF YOU" 
"SELECT A POSITION WHERE THERE'S A " 
"COBRA...YOU'RE OUT OF THE GAME, DEAD! !" 
"SELECTION WILL CONTINUE FOR AS LONG AS" 
"EACH PLAYER WANTS OR UNTIL TWENTY-ONE" 
"POSITIONS HAVE BEEN ELIMINATED." 
1350:GOSUB 220:INPUT "PRESS ENTER TO 


START": X$ 
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CLS:GOTO 300 
DIM L$(31),PRC(31),PC(31) ,L(31) 
REM letters? 


IF SL<>0 THEN PRINT "ARRANGING LETTERS..." 


L=65: I=1:PZ=1000 
L$(I)=CHR$(L) :LCI)=1 

IF [=27 THEN 255 
T=I+1:L=L+1:GOTO 235 
GOTO 235 

REM sort letters randomly 
J=1 

N=INTCRND*(I-1)4+1) 

IF LC(N)=0 THEN 265 
L$(J)=CHR$(N+64 ) 

L(N)=0: J=J+1 

IF J=I THEN RETURN 

GOTO 265 

REM positions 

PC=5: PR=5: I=1:PL=PR+2:J=1: PK=PC 
PR(I)=PR:PC(1I)=PC:L(1)=I 
PC=PC+6: T=I+1:J=J+1 

IF [=27 THEN 345 

IF J=/7 THEN 335 

GOTO 310 

PR=PL:PL=PL+2: J=1:PC=PK 
GOTO 310 

REM the remaining four 
L$(1)="_ ":PR(I)=PR:PC(1)=PC:L(1)=1 
PC=PC+6: T=I+1: J=J+1 

IF J=7 THEN 370 

GOTO 350 

REM move the four blanks 
T=1:J=1:L=27 
N=INT(RND*26+1 ) 

IF L(N)=0 THEN 380 
F$=L$(N):L$(N)=L$(L) 
L$(L)=F$:L(N)=0 
L=L+1:IF L=31 THEN 410 
GOTO 380 

REM now print letters 
CLS:FOR I=1 TO 30 


LOCATE PR(I),PC(1I):PRINT L$(1):SOUND 10* 


CASCCL$(I))),1:NEXT 

REM final graphics 

X=2 

FOR Y=5 TO 13 

LOCATE Y,X:PRINT CHR$( 222) :NEXT 


X=X+6 

IF X>=40 THEN 460 

GOTO 435 

FOR X=2 TO 38 

LOCATE Y,X:PRINT CHR$( 223) :NEXT 

Y=Y-2 

IF Y<=3 THEN 490 

GOTO 460 

REM cobra positions/player 

C=1:LOCATE 15,5:PRINT "PLAYER: '";Q$(U); 
N=INT(RND¥(T-5)+1) 

IF L(N)=0 OR L(N)=100 THEN 500 
CBR(C)=PR(N):CBC(C)=PC(N) : F$=L$(N) :C$(C)=F$ 
L$(N)=CHR$( 42) :L(N)=100 

IF C=5 THEN 560 ELSE IF C<=3 THEN GOSUB 530 
C=C+1:GOTO 500 

XX=0 ‘define 3 (1 for computer) 
LOCATE PR(N),PC(N):PRINT L$(N);:FOR T=1 TO 
100 :NEXT 


LOCATE PR(N),PC(N):PRINT " ";:FOR T=1 TO 50:NEXT 


LOCATE PR(N),PC(N):PRINT F$; 

IF XX<=0 THEN XX=XX+1:GOTO 535 
RETURN 

REM computer select/if not done 
SL=1 

IF SL>=22 THEN 1000 ELSE GOSUB 1200 
LOCATE 16,5:PRINT "I WILL SELECT A POSITION" 
:SOUND 220,1 
N=INT(RND*(L—-1)+1):GOSUB 1240 

IF L(N)=0 OR L(N)=100 THEN 590 
F$=L$(N):IF SL=1 THEN GOSUB 530 
C$=F$:NU=N:GOSUB 1300:GOSUB 1200 
LOCATE 16,5:PRINT "SELECT A POSITION BY LETTER 
ONLY,'';:SOUND 220,1 

LOCATE 17,5:PRINT Q$(U); 

INPUT L$ 

I=] 

IF L$=L$(1) THEN 665 

T=I+1 

IF [>=31 THEN 675 

GOTO 635 

N=I:F$=L$:GOSUB 530 

GOTO 800 

REM cobra position or blank 

GOSUB 1200 

GOSUB 1200 

FOR I=1 TO 5 
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695 
705 
715 


725 
735 
745 
755 
765 
770 
800 
805 


810 
815 
820 
825 
830 
835 
840 
845 


850 
855 
860 
865 
900 
905 


910 
915 
920 
925 
930 
1000 
1005 
1010 


1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
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IF L$=C$(1) THEN 735 


NEXT 

LOCATE 16,5:PRINT "YOU CANNOT SELECT A BLANK! !" 
:SOUND 220,1 

GOSUB 1240:GOSUB 1200:GOTO 610 


GOSUB 1340:REM cobra 

LOCATE 16,5:PRINT "YOU'RE DEAD, ";Q$(U)3" ttt" 
LOCATE 17,5:PRINT "THAT IS A COBRA POSITION !!!" 
LOCATE 18,5:PRINT "** FAREWELL **'":GOSUB 1240 
ZZ=1:GOSUB 1200:GOTO 1020 

GOSUB 1240:GOSUB 1200:IF L$<>C$ THEN 900 
GOSUB 1350:LOCATE 16,5:PRINT "CONGRATULATIONS " 
sQ$(U)5"..." 

LOCATE 17,5:PRINT "YOU'VE JUST GAINED ";PZ; 
PRINT "POINTS! !" 

REM points/continue 

WCU) =W(U)+PZ 

LOCATE PR(NU),PC(NU):PRINT " "3 

LOCATE 19,25:PRINT "TOTAL POINTS: ";W(U); 
GOSUB 1240:GOSUB 1200 

LOCATE 16,5:PRINT "YOU NOW HAVE ":W(U); 
"POINTS..." 
LOCATE 17,5:PRINT "...CONTINUE (Y/N)"; 

INPUT X$:IF X$="N" THEN 1020 
SL=SL+1:L(NU)=0:L$(NU)=" " 
GOTO 575 
REM wrong position 
LOCATE 16,5:PRINT "WRONG POSITION ,"';Q$(U) : SOUND 
220,1:SOUND 100,1 

LOCATE 17,5:PRINT "YOU ARE NOW MINUS"; PZ; 
PRINT "POINTS...":GOSUB 1240 

GOSUB 1200:W(U)=W(U)-PZ 

LOCATE 19,25:PRINT "TOTAL POINTS: ";W(U); 
GOTO 610 

REM final/another player 

GOSUB 1240:GOSUB 1200 

GOSUB 1350:LOCATE 16,5:PRINT "THAT'S IT, " 
sQ$(U);". YOU'VE" 

LOCATE 17,5:PRINT "REACHED THE LIMIT..." 
LOCATE 18,5:PRINT "PRESS ENTER, PLEASE:"; 
INPUT X$:CLS 

IF ZZ=1 THEN ZZ=0:GOTO 1040 

T(U)=W(U) 

U=U+1:IF U>A THEN 1100 

PRINT Q$(U);", YOU ARE NEXT..." 

PRINT "PRESS ENTER WHEN READY:"; 

INPUT X$:CLS 


1060 GOSUB 225:GOTO 300 

1100 REM final/score results 

1105 PRINT "PLAYERS AND POINTS:" 

1110 FOR I=1 TO A 

1115 PRINT Q$(1I);'': TOTAL POINTS ,";T(I) 
1120 NEXT 

1125 PRINT 

1130 PRINT "PROGRAM TERMINATED..." 

1135 END 

1200 REM clear print area 

1210 LOCATE 16,5:PRINT STRING$( 34, 32) 
1220 LOCATE 17,5:PRINT STRING$( 34,32) 
1230 RETURN 

1240 REM time delay 

1250 FOR TI=1 TO 2000:NEXT 

1260 RETURN 

1300 REM flash selection course 

1305 FOR I=1 TO NU 

1310 IF L$(1)="*" OR L$(1)="_ " THEN 1330 
1315 LOCATE PR(1I),PC(I):PRINT "*"::SOUND 1000,1 
1320 FOR Ti=1 TO 20:NEXT TI 

1325 LOCATE PR(1),PC(1):PRINT L$(1I);:SOUND 1500,1 
1330 NEXT I 

1335 RETURN 

1340 PLAY "MB O3L8CDL4E-DL8CP8CDE-GDE-C 
1345 RETURN 

1350 PLAY "MB MLL801AB-02D-—DD-01B-02L2D-" 
1355 RETURN 
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Mind Invasion for the IBM PC 


10 REM Program Title: Mind Invasion--IBM PC 
20 REM Instruction Routine 
25 WIDTH 40 
30 CLEAR 500:COLOR 2,0,14:FL=1:GOSUB 1500: J=1:TR=1 
40 REM outer graphics 
50 DEF SEG=&HB800: X=1 280: Y=1358:K=219: PN=1:TX=Y-600: 
TL=TX 
60 POKE X,K:POKE Y,K:POKE X+10,K:POKE Y-10,K 
70 X=(X-80+2) : Y=(Y-80)-2: J=J+1 
80 IF J<>8 THEN 60 
90 REM goto character print if done 
100 IF J=16 THEN N=42:POKE TX+1,4:POKE TX,2:GOTO 140 
110 POKE X,K:POKE Y,K:POKE X+10,K:POKE Y-10,K 
115 IF PN=1 THEN A(1)=X:A(2)=¥:L=A(1):R=A(2) 
120 K=(X-80)-2: Y=(Y-80)+2 
130 J=J+1:PN=2:GOTO 100 
140 LOCATE 23,17:PRINT "YOUR POINTS="'; 
150 PI=0 
160 GOSUB 910 
170 LOCATE 22,1:PRINT "PLAYER --";N$(PZ) 
200 REM character graphics variables 
210 J=7:E=8: ET=1:F=8: FT=33:T=1:E2=E: ET2=ET:F2=F:FT2 
=FT:TC=1:TCT=1 :BC=15:BCT=20 
220 KY=1:G=20:GOSUB 380:IF TI>=3 THEN 880 
230 LOCATE E,ET:PRINT W$;:LOCATE F,FT:PRINT W$::El 
=K+1:ETI=ET: Fl=F+1:FT1=33 
240 T=T+1:GOSUB 350 
250 LOCATE E,ET:PRINT L$;:LOCATE F,FT:PRINT L$; 
260 IF T>2 THEN J=J-1:GOSUB 380:GOSUB 350 
270 COLOR 14:LOCATE (E-1),ET:PRINT W$:LOCATE E1,ET1: 
PRINT W$:COLOR 2 
280 LOCATE(F-1),(FT-1):PRINT W$:LOCATE F1,FT1: 
PRINT W$ 
290 LOCATE (E-1),ET:PRINT L$;:LOCATE E1,ET1:PRINT L$; 
300 LOCATE (F-1),(FT-1):PRINT L$; :LOCATE F1,FT1:PRINT 
L$;:GOTO 600 


310 E=E-1:F=F-1:FT=FT-1:E1=E2+2:F1l=F2+2:FT1=FT2+2 
320 E2=E24+1:F2=F24+1] :FT2=FT24+1 :T=T+1 

330 REM reset variables if done 

335 GOTO 700 

340 IF T>8 THEN 200 ELSE KY=KY+1:GOTO 260 

350 REM for characters clear 

360 L$=STRING$(J,255) :Q$=STRING$(G,42) 

370 Q1$=STRING$(G,32):RETURN 

380 W$=STRING$(J,N) 


490 
500 
510 


600 
610 
620 


630 
640 
650 
660 
670 


680 
700 
705 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 


830 
840 
850 
855 


RETURN 
X$=INKEY$ ‘user movement 
TI=TI+1 "limit count without movement 
IF LEN(X$)=0 THEN 340 
TI=1 ‘placement /limit/reset 
IF LEN(X$)=2 THEN Y$=MID$(X$,2,1) 
IF ASC(Y$)=72 THEN 460 
IF ASCCY$)=80 THEN 490 
GOTO 340 
POKE TX ,32:TX=TX-80 
IF ABS(TX-TL)>160 THEN TX=TX+80 
POKE (TX+1),4:POKE TX,2:SOUND 880,1:UCKY)=ASC 
(Y$):GOTO 340 
POKE TX,32:POKE TX+1,2:TX=TX+80 
IF ABS(TX-TL)>160 THEN TX=TX-80 
POKE (TX+1),4:POKE TX,2:SOUND 880,1:U(CKY)=ASC 
(Y$):GOTO 340 
REM top/bottom characters 
COLOR 14:LOCATE TC,TCT:PRINT Q$; 
LOCATE BC,BCT:PRINT Q$;:COLOR 2:FOR X=2000 TO 
1900 STEP -50:SOUND X,1:NEXT 
LOCATE TC,TCT:PRINT Q1$; 
LOCATE BC,BCT:PRINT Q1$; 
TC=TC+1 : TCT=TCT+1 : BC=BC-1 : BCT=BCT-1 
REM replace user character 
IF PEEK(TX)=32 THEN POKE TX+1,4:POKE TX,2:SOUND 
300,1 
GOTO 310 
REM crusher movement 
POKE A(1)+10,32:POKE A(2)-10,32 
POKE L,32:POKE R, 32 
IF ABS(L-R)=2 THEN 750 
L=L+8:R=R-8 
POKE L,K:POKE (L+10),K:GOTO 400 
L=A(1):R=A(2):GOTO 800 
POKE L,K:POKE (L+10),K:PLAY "MB XMIND$;" 
POKE R,K:POKE (R-10),K 
REM recycle 
GOTO 400 
REM crushed? 
IF PEEK(TX)=32 THEN 840 
IF TI<=2 AND U(CKY)<>UCKY-1) THEN PI=PI+ABS 
(TX-TL):GOSUB 910 
GOTO 760 
REM yes...crushed 
LOCATE 17,1:PRINT "<<CRUSHED>>"; 
PLAY "MB O04L32BGBGBGBGBGBGBGBG" 
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POKE TX, 32 

FOR LX=1 TO 2000:NEXT:GOTO 950 

REM limit reached/no movement 

TI=0 

PI=PI-ABS(TL-TX):GOSUB 910:GOTO 920 
LOCATE 23,31:PRINT PI; :RETURN 

GOTO 230 

REM player advance/end 
TP(PZ)=PI:PI=0:PZ=PZ+1 

IF PZ>PL THEN GOSUB 1200:TR=TR+1:PZ=1 
IF TR>=3 THEN GOSUB 1240:GOTO 1010 
FOR LX=1 TO 14:PRINT:NEXT 

GOSUB 2100:CLS:J=1:GOTO 40 

REM end/high point winner 
T=0:H=1:IF H=PL THEN 1120 

IF FT(H)>=FT(H+1) THEN 1080 
FT=FT(H) : FTC(H)=FT(H+1) 
FT(H+1)=FT:N$=N$(H) :N$(H)=N$(H+1) 
N$(H+1)=N$ 

T=1 

H=H+1 

IF H<PL THEN 1030 

IF T=1 THEN 1020:REM not refined 
GOTO 1300 

CLS 

PRINT 

PRINT "YOUR TOTAL POINTS, AFTER 2 ROUNDS="; 
TP(H)+WE(H) 

GOTO 1390 

REM tally first round points 

REM tally first round points 

IF TR>=2 THEN RETURN 

FOR I=1 TO PL 
WE(I)=TP(1) :NEXT: RETURN 

REM final tally 

FOR I=1 TO PL 

FT(I)=WE(1)+TP(T) 

NEXT 

RETURN 

REM top winner(more than 1 player) 
CLS 

T=1 

PRINT "THE TOP WINNER: ";N$(1)3" WITH "; 
PRINT FT(1);" POINTS." 

PRINT “FOLLOWED BY:" 

FOR I=2 TO PL:PRINT N$(1);" WITH "; 
PRINT FT(1I);"POINTS." 


1380 
1390 
1400 
1410 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 


1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 


NEXT 
PRINT 


PRINT "END OF PROGRAM RUN." 


END 


REM instructions 

T$=" MIND INVASION " 

T=10:CLS 

FOR LX=1 TO LEN(I$) 

PRINT TAB(I) MID$(1I$,LX,1);:SOUND 300,1 


FOR Y= 


1 TO 50:NEXT Y 


T=I+1:NEXT LX 
FOR Y=1 TO 1000:NEXT 


PRINT 


INPUT "NUMBER OF PLAYERS (1-10)";PL:SOUND 200, 2 
IF PL<=0 OR PL>=11 THEN 1590 


PRINT 


"PLAY OUTLINE NECESSARY?"; 


INPUT X$ 


IF X$= 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
CHR$(2 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT: 
PRINT 


"N" OR X$="NO" THEN 2040 


"EACH OF YOU '";PL;" PLAYERS WILL 
"EXPERIENCE A NEW FORM OF MIND" 
"INVASION. THE OBJECT OF THE GAME:" 
"KEEP PLAYING AS LONG AS POSSIBLE" 
"WITHOUT GETTING °CRUSHED'." 

"YOU, THE USER, WILL BE LOCATED AT" 
"THE CENTER OF THE VIDEO DISPLAY" 
"LOOKING LIKE THIS:";:COLOR 4:PRINT 
);:COLOR 2:PRINT " YOUR" 

"ONLY MOVEMENTS WILL BE STRAIGHT" 
"UP OR STRAIGHT DOWN, INDICATED" 
"BY THE <UP ARROW> AND <DOWN" 
"ARROW> KEYS." 

GOSUB 2170 

"STRIKE A KEY TO CONTINUE” 


X$=INKEY$:IF X$=""THEN 1790 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"TO TAKE ADVANTAGE OF ANY POINTS" 
"YOU MUST BE CONSTANTLY MOVING," 

"UP OR DOWN. THE OUTER BOUNDARIES" 
"OF THE VIDEO WILL CONTAIN" 
"FLASHING ASTERISKS, FOR CONFUSION." 
"ALSO CONTAINED IN THOSE BOUNDARIES" 
"ARE BLOCKS, TWO OF WHICH," 

"WITHOUT NOTICE, WILL MOVE VERY" 
"QUICKLY TOWARD YOUR LOCATION." 

"IF YOU ARE SUCCESSFUL IN" 

"MOVING OUT OF THE WAY, YOU" 
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1920 PRINT "CAN CONTINUE PLAYING. IF, ON" 

1925 GOSUB 2170:FOR LX=1 TO 5000:NEXT 

1930 PRINT "THE OTHER HAND, YOU ARE CRUSHED" 

1940 PRINT "PLAY WILL ADVANCE TO THE NEXT" 

1950 PRINT "PLAYER. THIS IS ALSO TRUE IF" 

1960 PRINT "YOU COLLIDE WITH THE BLOCKS." 

1970 FOR LX=1 TO 2000:NEXT 

1980 GOSUB 2170:PRINT "STRIKE A KEY TO CONTINUE” 

1985 X$=INKEY$:IF X$="" THEN 1985 ELSE PRINT 

1990 PRINT "THE GAME WILL TERMINATE WHEN EACH" 

2000 PRINT "PLAYER HAS PLAYED A TOTAL OF TWO" 

2010 PRINT "ROUNDS. THE PLAYER FINISHING WITH" 

2020 PRINT "THE HIGHEST POINTS WILL BE THE" 

2030 PRINT "WINNER." 

2040 PRINT 

2050 PRINT "NOW ENTER THE FIRST NAMES OF" 

2060 PRINT "THE ";PL;" PLAYERS:" 

2070 FOR I=1 TO PL:PRINT "PLAYER #313: INPUT N$(I): 
SOUND 300, 1 

2080 NEXT 

2090 PZ=1 

2100 PRINT N$(PZ);" WILL NOW PLAY. STRIKE" 

2105 IF PZ>=2 OR TR>=2 THEN 2150 

2110 PRINT "A KEY WHEN READY:" 

2120 X$=INKEY$:IF X$=""THEN 2120 

2130 CLS 

2140 RETURN 

2150 PRINT "THE ENTER KEY WHEN READY"; 

2160 INPUT X$:TI=0:RETURN 

2170 MIND$="MNO1CFC+F+DGD+G+":IF FL=1 THEN GOTO 2200 

2180 PLAY "T60 XMIND$;T120 XMIND$;":FL=1 

2190 RETURN 

2200 PLAY "T240 L4XMIND$;L8 XMIND$;XMIND$;XMIND$; 
XMIND$;" 

2210 RETURN 
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Knights for the IBM PC 


] 
5 
10 
15 


20 
25 
30 


100 
105 


110 
115 
120 


125 
130 


135 
140 


145 
150 


155 
160 


CLEAR 700 

CLEAR 700 

REM program title KNIGHTS 

V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 

V=VAL(V$) 

RANDOMIZE V 

HORN$="MB T100 02 L16E- L4B- LI6E- L4B—" 

KEY OFF:WIDTH 80:COLOR 1,11,14:CLS 

PRINT TAB(30)'>>>>KNIGHTS<<<<":PLAY "XHORN$;" 
PRINT 

PRINT "INSTRUCTIONS NEEDED"; 

INPUT T$ 

IF T$="N" OR T$="NO" THEN 205 

PRINT "THERE ARE TEN KNIGHTS IN A CASTLE. 
THESE ARE KNIGHTS WHO HAVE DONE WRONG" 
PRINT 
PRINT "AND WERE IN A DUNGEON WAITING TO HAVE 
THEIR HEADS REMOVED." 
PRINT 
PRINT “THEY HAVE ESCAPED THE DUNGEON AND CAPTURED 
THE CASTLE. THEY HAVE WITH THEM" 
PRINT 
PRINT "EIGHT HOSTAGES." 

PRINT 

PRINT "THE KING WILL NOT MEET THE CONDITIONS 
THEY HAVE SET FORTH, SO THEY VOW" 

PRINT 

PRINT "TO FIGHT TO THE DEATH" 

PRINT: INPUT "PRESS <ENTER> TO CONTINUE" ,T$:PLAY 
"XHORN$;" 

PRINT 

PRINT "YOU ARE THE SHARPSHOOTER SELECTED BY THE 
KING TO TERMINATE " 

PRINT 

PRINT "THESE KNIGHTS. YOU ARE EQUIPPED WITH A 
HIGH-POWER CROSSBOW." 

PRINT 

PRINT "ALONG THE CASTLE WALLS ARE FIVE WINDOWS. 
EACH TIME A FIGURE" 

PRINT 

PRINT “APPEARS AT A WINDOW YOU'LL HAVE THE 
OPTION TO FIRE (BY STRIKING" 


165 PRINT 
170 PRINT "THE SPACE BAR) OR NOT. THE FIGURE THAT 
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APPEARS AT A WINDOW" 

175 PRINT 

180 PRINT "COULD BE ONE OF THE HOSTAGES; BUT IF IT 
IS A KNIGHT AND YOU DON'T" 

185 PRINT 

190 PRINT "FIRE, YOU COULD BE HIT..." 

195 PRINT 

200 INPUT "PRESS <ENTER> TO BEGIN" ,T$:PLAY "XHORN$;" 

205 CLS:K=10:HD=8:CR=10 

210 SCREEN 1,0 ‘draw castle 

215 COLOR 9,0 

225 LINE (20,60)—( 290,148) ,3,BF 

230 FOR X=20 TO 280 STEP 20 

235 LINE (X,50)-((X+10) ,60) ,3,BF 

240 NEXT X 

245 LINE (20,40)-(90,60) ,3,BF 

250 LINE (220,40)-—( 290,60) ,3,BF 

255 X=20 

266 FOR Y=X TO (X+60) STEP 20 

265 LINE (Y,30)-((Y+10),40),3,BF 

270 NEXT Y 

275 X=X+200:IF X<=220 THEN 260 

280 FOR X=55 TO 255 STEP 200 

285 LINE (X,10)-(X,40) ,3 

290 NEXT X:PLAY "O3L8CL12D-E-D-L8CP1602L16A-L4B_"' 

295 FOR X=56 TO 256 STEP 200 'draw flags 

300 LINE (X,10)-(X,20) ,2 

305 LINE -((X+20),15),2 

310 LINE -(X,10),2 

315 PAINT ((X4+2),15),2 

320 NEXT X 

325 Z=70:Y=40:FOR X=4 TO O STEP -2 "draw and 
save windows 

330 LINE ((Y-X) ,(Z-X))-—( (Y4+20+X) ,(Z+40+X)) ,(X/2) , BF 

335 NEXT X 

340 DIM WINDOW( 340) :GET(36,66)~(64,114) ,WINDOW 

345 PI=3.14159:CIRCLE(50,110),7,3,-2*PI,-1*PI:PAINT 
(50,109) ,3 ‘draw and save figure 

350 CIRCLE(50,96) ,7,3:PAINT( 50,96) ,3 

355 DIM FIGURE( 340) :GET( 36,66)-(64,114) , FIGURE 

357 DIM HOLE( 34) :GET( 290, 160)—( 300,170) , HOLE 


"hole for arrows that miss 


360 FOR X=36 TO 282 STEP 50 ‘window placement 
365 PUT(X,66) ,WINDOW, PSET 
370 NEXT X 


590 REM get a window 
600 W=INT(RND*5+1 ) 


348 


990 


WI=W*50-14 

BLANK$=STRING$(119,0) 

REM pause before placing 
PA=INT(RND*7004+1):IF PA<=250 THEN 630 
FOR PU=1 TO 700 

IF PU=PA THEN 670 

NEXT:GOTO 630 

PUT(WI,66),FIGURE, PSET 

REM sharpshooter to fire 

FOR TI=1 TO 150 

W$=INKEY$ 

IF W$<>""THEN 730 

NEXT 

REM knight or hostage 
H1=INT(RND*5+1) :H2= ~INT(RND#541) : H3=INT(RND*5+1 ) 
H=ABS(H1-H2-H3) 

PUT(WI ,66) ,WINDOW, PSET 

IF H=W THEN 1240 

IF HD<=0 THEN 840 


) IF H<=O OR H>=5 AND TI<=99 THEN 790 


GOTO 840 

REM a hostage 

IF TI>=112 THEN 880 

SOUND 300,2:SOUND 100,3:LOCATE 20,1:PRINT 
"YOU HAVE JUST KILLED ONE" 

PRINT "OF THE HOSTAGES, TURKEY! !" 

GOTO 970 

IF TI>=150 THEN 880 

FOR SO=400 TO 1000 STEP 50:SOUND SO,1:NEXT: 
LOCATE 20,1:PRINT "GOOD SHOOTING, YOU HAVE" 
PRINT "ELIMINATED ANOTHER KNIGHT!" 

GOTO 940 

IF H>=O AND H<=2 THEN 1020 


) FOR SO0=1000 TO 400 STEP -50:SOUND SO,1:NEXT: 


LOCATE 20,1:PRINT "THINK FASTER! YOU HAVE BEEN" 


PRINT "HIT BY ONE OF THE KNIGHTS!!" 
HK=HK+1 

IF HK>=6 THEN 1060 

GOTO 990 

K=K-1:PRINT K;" KNIGHTS REMAIN." 

IF K<=0 THEN 1120 

GOTO 990 

HD=HD-1 

IF HD<=0 THEN 1180 

FOR TX=1 TO 3000:NEXT 


1000 REM clear print area 
1010 LOCATE 20,1:PRINT BLANK$;:GOTO 14000U HAVE BEEN" 
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1020 
1030 


1040 
1050 
1060 
1080 


1090 
1100 
1110 
1120 
1140 
1150 
1160 
1170 
1180 
1200 


1210 
1220 
1230 
1240 
1245 
1250 
1270 
1290 
1310 


1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
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IF HD<=0 THEN 890 

PLAY "XHORN$;":LOCATE 20,1:PRINT "GOOD THING 
YOU DID NOT FIRE;" 

PRINT "THAT WAS A HOSTAGE! !" 

GOTO 990 

REM hit enough 

PLAY "MB T60 O2DL8D.L16DL4DL8FEEDD.L16C+L4D" 
:LOCATE 20,1:PRINT "YOU HAVE BEEN HIT ":HK; 
" TIMES." 

PRINT "YOUR BODY CANNOT STAND" 

PRINT "ANY MORE. YOU ARE DYING..... " 

GOTO 1530 

REM knights killed 

LOCATE 20,1:PRINT "YOU HAVE DESTROYED ALL TEN" 
PRINT "KNIGHTS. THE KING WILL BE" 

PRINT "PROUD OF YOU, MY FRIEND...." 

GOTO 1530 

REM hostages gone 

LOCATE 20,1:PRINT "YOU HAVE KILLED ALL EIGHT" 
IMES ." 

PRINT "OF THE HOSTAGES, YOU TURKEY! !" 

PRINT "THE KING WILL HAVE YOUR HEAD! !" 

GOTO 990 

REM complete miss 

IF TI>=100 THEN 765 

XX=INT(RND*260+20) 

YY=INT(RND*38+110) 

PUT(XX,YY) , HOLE, PSET 

LOCATE 20,1:PRINT "YOU'LL HAVE TO DO BETTER" 
sPLAY "T120 01 B-D" 

PRINT "THAN THAT, YOU'VE MISSED COMPLETELY! !" 
GOTO 990 

REM crossbow rounds 

REM crossbow rounds 

PRINT 

PRINT "YOU HAVE ";CR;'' ARROWS LEFT TO FIRE." 
RETURN 

REM enough arrows left 

REM enough arrows left 

IF TI<=99 THEN CR=CR-1 

GOSUB 1350:IF CR<=0 THEN 1440 

GOTO 590 

REM end 

FOR TX=1 TO 2000:NEXT 

CLS 

PRINT "YOU HAVE EXHAUSTED YOUR" 

PRINT "SUPPLY OF CROSSBOW ARROWS." 


1490 IF K<>0 THEN 1510 

1500 GOTO 1530 

1510 PRINT "THERE ARE STILL ";K;"' KNIGHTS " 
1520 PRINT "IN THE CASTLE..." 

1530 PRINT 

1540 IF HD<=0 THEN 1560 

1550 GOTO 1600 

1560 PRINT "YOU ARE A BLUNDERING SHARP-" 
1570 PRINT "SHOOTER, YOU IDIOT! !" 

1580 PRINT "YOU HAVE HIT AND KILLED ALL" 
1590 PRINT "EIGHT HOSTAGES!!!" 

1600 PRINT: FOR T=1 TO 5000:NEXT 

1610 PRINT “END OF RUN." 

1615 SCREEN 0,0,0 

1620 END 
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Injection for the IBM PC 


CLEAR 


100 


REM program title: INJECTION 


V$=RIGHT$(TIME$, 2): 


"use PC clock to seed 


random number generator 
V=VAL(V$) 
RANDOMIZE V 


COLOR 
PRINT 
PRINT 
INPUT 


5,7, 3:WIDTH 40:KEY OFF:CLS 
TAB(15)"> INJECTION <" 


"NUMBER TO PLAY (1-10)"3;U 


IF U<l OR U>10 THEN 45 


PRINT 


FOR I= 


"THE INITIALS OF PLAYERS:" 
1 TO U: INPUT K$(T) 


NEXT: PRINT: PL=1:CLS 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


"YOU ARE HEAD OF A LABORATORY" 

"IN WHICH YOUR COMPANY IS IN THE" 
"PROCESS OF INJECTING CUBES WITH" 
"A SOLVENT, TO DESTROY A COLONY" 
"OF BACTERIA WHICH CANNOT BE" 
"CONTROLLED. THESE CUBES WILL" 
"RACE ACROSS THE SCREEN FIVE AT A" 
"TIME. TO INJECT A CUBE, HOLD" 
"THE <UP ARROW> KEY. THE INJECTED" 
"SOLVENT MUST STRIKE THE OPENING" 
"AT THE BOTTOM OF THE CUBES." 


"PRESS <ENTER> TO CONTINUE";L 


CLS : PRINT 


PRINT 
PRINT 


5 PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 


"EACH TIME A CUBE IS INJECTED," 
"THE NUMBER RACING ACROSS THE" 
"SCREEN WILL DECREASE BY ONE, BUT" 
"NO FEWER THAN THREE WILL RACE" 
"ACROSS AT ONE TIME. A TOTAL" 

"OF TEN CUBES MUST BE INJECTED." 
"IF AT ANY TIME YOU MISS AN" 
"INJECTION, THE NUMBER OF CUBES WILL” 
"INCREASE BY ONE. THE INJECTION" 
"MACHINE CAN BE MOVED LEFT OR" 
"RIGHT, WITH THE LEFT AND RIGHT" 
"ARROW KEYS. GOOD LUCK." 


"PRESS ENTER TO BEGIN" ,L 


REM the cubes 


225 
230 
235 
240 
245 


260 
270 
280 
290 
300 


310 
317 


320 


SCREEN 1,0:COLOR 0,1:JJ=0 

DIM ALL(1992):DIM INJECTOR(804) 

DIM BLANK( 228) :GET(0,0)-(30, 28) , BLANK 
LINE(2,2)-(28, 26) ,2,BF: 
LINE(11,20)-(15, 26) ,3,B: PAINT( 12,21) ,3:DIM CUBE 
(228) :GET(O,0)-(30, 28) ,CUBE: PUT(0,0) , BLANK , PSET 
REM setting up graphics 

FOR X=5 TO 205 STEP 50 

PUT(X,60) , CUBE, PSET 

NEXT 

GET(0,60)-(235,88) ,ALL:DIM SERUMBLANK(17):GET 
(164, 138)-(166,151) ,SERUMBLANK 

REM draw injection machine 

LINE (165,146)-(165,138) ,1:DIM SERUM(17):GET 
(164,138)-(166,151) ,SERUM 

LINE (150, 169)-(180,199) ,3, BF: LINE(140,197)- 
(190,199) ,3,BF:LINE (150,169)-(1 65,159) ,1:LINE - 
(180,169) ,1:LINE -(150,169),1:PAINT(165,160),1,1 
:LINE (165,159)-(165,149),1 
GET(133,149)-(197,199) , INJECTOR 

CLS: 

JN=0:T=1: IN=10:E=0:CV=5:GOSUB 600 

REM move cubes 

X=0: INC=30:MINC=INC :M=X: J=0: JJ=0: P=1 

PUT(X , 60) , CUBE, PSET 

X=X+INC:J=J+1:SOUND 10*X+50*P,2:P=P+.1 

IF JJ=1 THEN GOTO 520 

IF J>=CV THEN 510 

GOTO 440 

REM blank out 

PUT(M, 60) , BLANK , PSET 

M=M+MINC 

REM recycle 

IF X>=259 OR X<=0 THEN INC=-INC:JJ=1:GOTO 580 
IF M>=259 OR M<=0 THEN MINC=INC 

GOTO 720 

INJ=150:REM injector 

PUT CINJ,149) , INJECTOR ,PSET:SOUND INJ*10+50,1 
CA=0:QR=138:QC=INJ+31 

LOCATE 1,1:PRINT "CUBES REMAINING:"; 

LOCATE 2,1:PRINT "CUBES ADDED:"; 

PRINT K$(PL): RETURN 

REM injection/injector move 

IF R=72 THEN 790 

RR$=INKEY$:IF LEN(RR$)=2 THEN R$=MID$(RR$,2,1): 
R=ASC(R$) 

IF R=72 THEN 790 
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IF R=75 THEN 900 

IF R=77 THEN 960 

GOTO 440 

IF JN=1 THEN 810 

QQ=INJ:QK=QC: JN=1 

IF QR<=65 THEN V=1:GOTO 870 

IF POINT(QC,QR-5)=0 THEN GOTO 830 

IF POINT(QC,QR-5)=2 THEN V=1:PUT(QC,QR), 
SERUMBLANK ,PSET:GOTO 870 

IF POINT(QC,QR-5)=3 THEN PAINT(QC,QR-5),1,3:PUT 
(QC ,QR) ,SERUMBLANK , PSET:GOTO 1060 
QR=QR-5:PUT(QC,QR) ,SERUM,PSET:SOUND 10*(24-QR) ,1 
GOTO 440 

INJ=QQ+E:QC=INJ+31 :QQ=0:E=0: QR=138: P=1 
PUT( INJ , 149) , INJECTOR , PSET 

IF V=1 THEN GOSUB 1140 

R=0:JN=0:GOTO 440 

REM to left 

If INJ<=0 THEN 440 

INJ=INJ-T: QC=INJ+31 
PUT(INJ , 149) , INJECTOR , PSET 

GOTO 440 

REM to right 

IF INJ>=254 THEN 440 

INJ=INJ+T: QC=INJ+31 
PUTCINJ,149) , INJECTOR , PSET 

GOTO 440 

REM injected 

T=T+1:CV=CV-i:FOR B=l TO 3:SOUND 2000,1:SOUND 
2250,1:NEXT B 

IF T>5 THEN T=1 

IF CV<=2 THEN CV=5 

IN=IN-1:LOCATE 1,20:PRINT IN; 

IF IN<=0 THEN 1250 

E=INTCRND*5): IF E+QQ>=256 THEN E=—-(RND*5) 
GOTO 870 

REM cube added/injection missed 
IN=IN+1:FOR B=500 TO 600 STEP 20:SOUND B,1: 
NEXT B 

CA=CA+1:V=0 

T=T-1 

IF T<=0 THEN T=1 

LOCATE 1,20:PRINT IN; 

LOCATE 2,15:PRINT CA; 

RETURN 

REM player advance 

W(PL)=CA: PL=PL+1 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1535 
1540 


IF PL>U THEN 1310 


LOCATE 3,1:PRINT "STANDBY, "$K$(PL);"..."3 


FOR YY=1 TO 1500: NEXT 

R=0:GOTO 410 

FOR YY=1 TO 900:NEXT:CLS 

PRINT "ALL PLAYERS HAVE HAD THEIR" 
PRINT "TURNS AT THE INJECTION MACHINE." 
PRINT "SCORES ARE BASED ON THE NUMBER" 
PRINT "OF CUBES THAT WHERE ADDED DURING" 
PRINT "THE INJECTION PROCESS." 

PRINT: FOR I=1 TO U 

PRINT "INJECTOR: ";K$(1) 

PRINT "HAD "3;W(1I);" CUBES ADDED." 
PRINT "FINAL SCORE EVALUATION: "'; 
W=W(T) 

IF W>=0 AND W<=5 THEN 1470 

IF W>=5 AND W<=10 THEN 1480 

IF W>=10 AND W<=20 THEN 1490 

PRINT "TOO HORRIBLE TO MENTION." 

GOTO 1500 

PRINT "EXCELLENT.":GOTO 1500 

PRINT "FAIR.":GOTO 1500 

PRINT "POOR." 

FOR YY=1 TO 1200:NEXT YY:PRINT 

NEXT I 

PRINT 

PRINT "END OF INJECTION" 

SCREEN 0,0,0 

END 
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Point A to Point B for the IBM PC 


1 REM program title: POINT A TO POINT B 
5 CLEAR 300 
10 V$=RIGHT$(TIME$,2): 'use PC clock to seed random 
number generator 
15 V=VALCV$) 
20 RANDOMIZE V:DIM SONG$(13) 
30 COLOR 14,10,14:CLS:KEY OFF:WIDTH 40:DEF 
SEG=&HB800 
40 PRINT TAB(15) "< FROM POINT A >":BEEP 
50 PRINT TAB(15) '< TO POINT B >'":SOUND 500,3 
60 PRINT:DIM D$(50) ,S(50) 
70 BEEP: INPUT “INSTRUCTIONS (Y/N)"3W$ 
80 IF W$="N" OR W$="NO" THEN G=1 
90 BEEP: INPUT "NUMBER TO PLAY (1-10)"3A 
100 IF A<1 OR A>10 THEN 90 
110 IF G=1 THEN G=0:GOTO 410 
120 PLAY "MB L8 F EF A C":LOCATE 3,1:PRINT "ARE YOU 
CONFUSED BY THE MANY" 
130 PRINT "DIFFERENT MAZE GAMES THAT ARE" 
140 PRINT "CURRENTLY ON THE MARKET? HAVE" 
150 PRINT "NO FEAR! ! <FROM POINT A TO " 
160 PRINT "POINT B> IS HERE! !" 
170 PRINT: PRINT "ACTUALLY, THIS IS NOT YOUR" 
180 PRINT "RUN-OF-THE-MILL MAZE GAME." 
190 PRINT “IT IS ONE THAT WILL PROBABLY" 
200 PRINT “CONFUSE YOU MORE THAN EVER!" 
210 PRINT "YOU SEE, YOU WILL NOT BE" 
220 PRINT "CONSTANTLY PRESSING DIFFERENT" 
230 PRINT "KEYS FOR DIFFERENT DIRECTIONS;" 
240 PRINT "INSTEAD, YOU'LL INPUT ALL" 
250 PRINT: INPUT "PRESS ENTER TO CONTINUE" ,W 
260 CLS 
270 PLAY "MB L8 C C+ D E F":PRINT "OF THE 
INSTRUCTIONS BEFORE YOU" 
280 PRINT "MOVE AT ALL: UP SO MANY" 
290 PRINT "SPACES, RIGHT SO MANY SPACES," 
300 PRINT "LEFT, SO MANY, ETC., ETC." 
310 PRINT "AFTER YOU HAVE ENTERED ALL" 
320 PRINT “OF YOUR DIRECTION INSTRUCTIONS" 
330 PRINT “YOU WILL INPUT <XX>. AT THAT" 
340 PRINT "POINT YOUR PIECE WILL BEGIN " 
350 PRINT "TO MOVE FOLLOWING THE INSTRUCTIONS" 
360 PRINT "YOU GAVE. IF AT ANY POINT YOU " 
370 PRINT "COLLIDE WITH ANYTHING OTHER" 
380 PRINT "THAN A BLANK SPACE--END OF TURN..." 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
515 
520 
560 


565 
570 
580 
590 
600 
605 
610 
620 
630 
631 
632 
633 
634 
635 
637 
638 


639 


640 
650 


660 
670 
680 
690 
700 
710 


PRINT 

INPUT "PRESS ENTER, AGAIN" ,W 

CLS 

REM players 

REM play in order of entry 

BEEP:PRINT "ENTER THE FIRST NAMES OF" 

PRINT "THE "3A;''PLAYERS, PLEASE" 

FOR I=1 TO A: INPUT A$(I):SOUND 100+25*I,3 

NEXT: L=1:MX=0 

PRINT 

PRINT "TO BEGIN, ";A$(L);"', PRESS ENTER"; 

INPUT W 

REM graphics and music 

FOR I=1 TO 13:READ SONG$(1):NEXT 

CLS:SNG=1:PLAY "XSONG$(SNG);":GOTO 580 

LOCATE 1,1:PRINT STRING$(40,32):LOCATE 2,2:PRINT 
STRING$(36, 219); 

DC=INT(RND*6+25) : DR=2 

LOCATE DR,DC:PRINT STRING$( 2,32); :RETURN 

GOSUB 560:LOCATE 8,2:PRINT STRING$(9,219); 
LOCATE 8,18:PRINT STRING$(9,219);:GOTO 620 
LOCATE 8,22:PRINT STRING$(14,219) 
DC=INT(RND*7+30) : DR=6 

LOCATE DR,DC:PRINT STRING$(2,32) 3 :RETURN 

GOSUB 700:M=10:M1=20:M2=6:M3=12:GOTO 670 
SNG=SNG+1: IF SNG<=13 THEN PLAY "XSONG$(SNG);" 
IF M2<=0 THEN M2=INT(RND*4+2) 

IF M2>=23 THEN M2=INT(RND*10+13) 

IF Ml<=O THEN Ml=INTCRND*10+1) 

IF Ml>=40 THEN M1=38 

FOR X=M TO Ml:LOCATE M2,X:PRINT CHR$(219) 

DR=8 : DC=INT(RND*10+10) : FR=11:FC=INT(RND* 10420) 
LOCATE DR,DC:PRINT STRING$(10,219):LOCATE FR,FC: 
PRINT STRING$(10, 219) 

FOR ROW=12 TO 14:COL= =INT(RND#25+1): GAP=INT (RND* 
15+1):LOCATE ROW,COL:PRINT STRING$(GAP , 32) :NEXT: 
LOCATE 8 COL: PRINT STRING$ (GAP , 32) 

LOCATE M3,X:PRINT CHR$(219):NEXT:FOR X=M2+1 TO 
M3-2 

LOCATE X,M:PRINT CHR$(219):LOCATE X, (M+1):PRINT 
CHR$(219):LOCATE X,(M1-1):PRINT CHR$(219) 
LOCATE X,Ml:PRINT CHR$( 219) :NEXT:RETURN 

GOSUB 630 

M=1:M1l=5:M2=12:M3=16:GOSUB 630 

M=6:M1=9:GOSUB 630 

M=M1+1 :M1=M1+22:M2=M3-2 :M3=M3+6 

GOSUB 630 
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720 
730 
740 
750 


M=M1+13:M1=M1+9 :M2=M2+-6 :M3=M3+6 
GOSUB 630 

M=1:M1=9:GOSUB 630:GOTO 770 

LOCATE 20,10:PRINT STRING$( 25,219) 
LOCATE 12,30:PRINT STRING$(8, 219) 
DC=INT(22*RND+10) : DR=20 
FC=INT(6*RND+31) : FR=12 

LOCATE DR,DC:PRINT STRING$(2,32); 
LOCATE FR,FC:PRINT STRING$(2,32);:RETURN 
GOSUB 750:M1l=M1-3:M2=M3+2:M3=M3+6 
GOSUB 630 

M=M1+1:M1=M1+4 

GOSUB 630 

IF M>=38 THEN 880 

GOTO 780 

M=M-—5 :M1=M+3 :M2=2:M3=10 

GOSUB 630 

M=M-—4 :M1=M+4 :M2=M3+2 :M3=M3+8 

GOSUB 630 

M=M-—5 :M1=M+1 :M2=4:M3=6 

GOSUB 630:RETURN 

REM start/stop locations 

GOSUB 820: Y=21:X2=40 
X1=INTCRND*(X2-1)+42) 

IF G=1 THEN 1110 

COLOR 11:LOCATE 23,5:PRINT "THIS IS POINT A 
(START) ." 

LOCATE Y,X1:PRINT CHR$(32):LOCATE Y,(X1-1): 
PRINT CHR$(32) 

FOR T=1 TO 50:NEXT 

COLOR 27:LOCATE Y,X1:PRINT CHR$(219) 
FOR T=1 TO 1000: NEXT 

COLOR 11:LOCATE Y,X1:PRINT CHR$(219) 
IF G=]1 THEN 1150 ELSE JJ=X1 


o_o 
Wet 


LOCATE 23,5:PRINT "LOOK AT THE TOP (POINT B)." 


Y=1:X2=30:GOTO 900 

LOCATE 23,5:PRINT STRING$(35, 32) 

LOCATE 23,5:PRINT "THIS IS POINT B (STOP 
ZONE) ." 

R=X1:GOTO 1020 

LOCATE 23,5:PRINT STRING$(35, 32) 

GOTO 1210 

LOCATE 23,5:PRINT STRING$(35,32):LOCATE 23,5 


DYTTTINAT 

ALUN 

FOR T=1 TO 2000:NEXT 
GOSUB 1170:RETURN 


1650 


GOSUB 1170 

PRINT "YOU WILL NOW GIVE INSTRUCTIONS: 
GOSUB 1190:GOSUB 1170 

PRINT “TO ENTER THE STOP ZONE..." 
GOSUB 1190:GOSUB 1170 

PRINT "STOP ZONE BLOCK MUST BE HIT: 
GOSUB 1190:GOSUB 1170 

PRINT "HEAD-ON TO COMPLETE A RUN." 
GOSUB 1190:GOSUB 1170 

I=] 

INPUT "DIRECTION (L,R,U,D)",D$:SOUND 500,3 
IF D$="XX" THEN 1380 

D$(1I)=D$:GOSUB 1170 

INPUT "FOR HOW MANY SPACES":S:BEEP 
S(I)=S:I=I+1:GOSUB 1170 

IF I>=51]1 THEN 1430 

GOSUB 1200:GOSUB 1170:GOTO 1310 

GOSUB 1170 

PRINT "THE COMPUTER WILL NOW CARRY" 
GOSUB 1190:GOSUB 1170 

PRINT "OUT ALL OF YOUR INSTRUCTIONS." 
T=I-1:H=I:I=1:X=JJ:Y=21:G=0 

GOSUB 1190:GOTO 1480 

GOSUB 1170 

PRINT "THAT IS THE LIMIT OF THE" 

GOSUB 1190:GOSUB 1170 

PRINT “INSTRUCTIONS YOU CAN ENTER." 
GOSUB 1190:GOTO 1380 
D$=D$(1):S=S(1I):J=1:IF I<=12 THEN PLAY 
"XSONG$(I);" 

IF D$="L" THEN 1540 

IF D$="R" THEN 1580 

IF D$="U"' THEN 1620 

IF D$="D" THEN 1660 

GOTO 1760 ‘bad direct 

IF PEEK( (X-2)*2+(Y-1)*80)=219 THEN 1760 
X=X-1:LOCATE Y,X+1:PRINT CHR$(32) 

IF X<=0 THEN 1760 

GOTO 1690 

IF PEEK(X*2+(Y-1)*80)=219 THEN 1760 
X=X+1]1:LOCATE Y,(X-1):PRINT CHR$(32) 

IF X>=40 THEN 1760 

GOTO 1690 

IF PEEK( (X-1)*2+(Y-2)*80)=219 THEN 1760 
Y=Y-—1:LOCATE (Y+1),X:PRINT CHR$(32) 

IF Y<=0 THEN 1760 

GOTO 1690 
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1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1765 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 


1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2005 
2010 
2015 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
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IF PEEK( (X-1)*2+Y*80)=219 THEN 1760 
Y=Y+1:LOCATE (Y-1),X:PRINT CHR$(32) 
IF Y>=20 THEN 1760 

COLOR 11:LOCATE Y,X:PRINT CHR$(2):COLOR 14 
IF S>J THEN 1720 

GOTO 1730 

J=J+1:GOTO 1490 

T=I+1 

IF I>H THEN HH=1:GOTO 1760 

GOTO 1480 

GOSUB 1170:IF ABS(X-R)<=1 THEN 2060 
IF HH=1 THEN HH=0:GOTO 1900 

PRINT "SORRY...YOU HAVE ATTEMPTED" 
GOSUB 1190:GOSUB 1170 

PRINT "A SHORT-CUT THAT DIDN'T WORK." 
REM another play? 

GOSUB 1190 

GOTO 1950 

GOSUB 1190:GOSUB 1170 

PRINT "READY TO TRY AGAIN (Y/N)"; 
INPUT W$ 

IF W$="Y"THEN 1880 

GOTO 2300 

LOCATE Y,X:PRINT CHR$(32):LOCATE 1,R:PRINT 
CHR$( 32) 

GOTO 1970 

GOSUB 1170 

PRINT "THAT WASN'T ENOUGH TO GET " 
GOSUB 1190:GOSUB 1170 

PRINT "YOU TO THE STOP ZONE, ";A$(L) 
GOTO 1800 

REM player advance 

IF L>=A THEN 2020 ELSE L=L+1 

GOSUB 1170 

PRINT AS(T.)3" WIT, NOW ATTEMPT THR" 
GOSUB 1190:GOSUB 1170 

PRINT "VENTURE FROM POINT A TO B." 
LOCATE Y,X:PRINT CHR$(32):LOCATE 1,R:GOSUB 560 
GOSUB 600:GOSUB 750:M=35:M1=38 
GOSUB 1190:GOTO 880 

REM start over 

L=1:GOQSUB 1170 

PRINT "ALL HAVE PLAYED..." 

GOSUB 2160:MX=0:GOTO 1830 

IF ABSCY-1)>=1 THEN 1900 

GOSUB 1190:GOSUB 1170:REM complete 
PRINT "VERY WELL DONE, "sA$(L);"!1" 


2090 GOSUB 1190:GOSUB 1170 

2100 PRINT "YOU HAVE MADE A COMPLETE " 

2110 GOSUB 1190:GOSUB 1170 

2120 PRINT "PASSAGE TO POINT B..." 

2130 GOSUB 1190 

2140 M(L)=1:MX=1 

2150 GOTO 1950 

2160 REM players made to point b 

2170 IF MX=0 THEN RETURN 

2180 GOSUB 1190:GOSUB 1170 

2190 PRINT "THE FOLLOWING HAVE EASILY MADE" 

2200 GOSUB 1190:GOSUB 1170 

2210 PRINT "IT TO POINT B...." 

2220 GOSUB 1190:GOSUB 1170 

2230 FOR U=1 TO A 

2240 IF M(U)=1 THEN 2260 

2250 NEXT: RETURN 

2260 PRINT A$(U);"..... " 

2270 GOSUB 1190:GOSUB 1170 

2280 M(U)=0:GOTO 2250 

2290 REM end 

2300 GOSUB 1190:GOSUB 1170 

2310 PRINT "POINT A TO POINT B" 

2320 GOSUB 1190:GOSUB 1170 

2330 PRINT "TERMINATED...." 

2340 GOSUB 1190:GOSUB 1170 

2350 END 

2360 DATA "MB T200 L1 03 E D" 

2365 DATA "MB T250 LEC O2 BO3CDCO2ZGEFGA 
G E L4 G" 

2370 DATA "MB MS L8 OB CDL4EEL8EDCDL4E 


D D 
2380 DATA "MB L8 03 ED L8C 02 BO3CDCO2Z2GEF 


GAG EL4 G" 

2390 DATA "MB MS L803 CDL4 EGL8GECDL4ED 
L2 C 

2400 DATA "MB MS OB LE EL4GL8EL4GGLB8EL4G 
L8 E L2 G" 

2410 DATA "MB MS O3 L8 F L464 ALS FL4 AALS FL4 A 
L8 F L2 A" 

2420 DATA "MB MS L12 03 GAB O4L4CCO3GGE 
E p! 

2425 DATA "MB MS LE CDLIL4EL8GAGECDILI4E 
Dc" 


2430 DATA ''MB MS P4 03 L4 C 02 LO G G- G L4 G+ G" 
2440 DATA "MB MS P4 O1 G 02 B 03 C" 
2450 DATA "MB MS P4 05 L4 C 04 LO G G- G L4 G+ G" 
2460 DATA "MB MS P4 01 G 04 B 05 C" 
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Intercept for the IBM PC 


1 REM program title: INTERCEPT 

3 CLEAR 200 

5 V$=RIGHT$(TIME$, 2): 
number generator 


"use PC clock to seed random 


10 V=VAL(V$) 

15 RANDOMIZE V 

30 CLS:WIDTH 40:KEY OFF 

40 BEEP:PRINT TAB(15)"[[ INTERCEPT ]]" 

50 PRINT 

60 BEEP: INPUT "INSTRUCTIONS ";Q$ 

70 IF Q$="N" OR Q$="NO" THEN 520 

80 PRINT 

90 PRINT "YOU ARE THE LEADER OF A SPECIAL" 

95 PRINT 

100 PRINT "GROUP KNOWN AS [[ INTERCEPT ]]." 
105 PRINT 

110 PRINT "YOU WILL HAVE TO IDENTIFY AND 

115 PRINT 

120 PRINT "POSSIBLY DESTROY ANY ALIENS WHO" 
125 PRINT 

130 PRINT "VENTURE INTO THE STERILIZED DOME" 

135 PRINT 

140 PRINT "WHERE ALL OF YOUR INHABITANTS LIVE." 
145 PRINT 

150 PRINT "THE APPROACH TO THE DOME CONSISTS OF" 
155 PRINT 

160 PRINT "CROSSROADS. NEAR THE EDGE OF THE SCREEN" 
165 PRINT 
170 PRINT "ARE TWO LASER CANNONS. THESE CANNONS" 
175 PRINT 
180 PRINT "WILL FIRE ONLY WHEN YOU HAVE ENTERED" 
185 PRINT 
190 PRINT "THE CORRECT KEY SEQUENCE: RIGHT ARROW," 
- GOSUB 2300:GOSUB 2330 

193 PRINT 

195 PRINT 

197 INPUT "PRESS ENTER TO CONTINUE" ,Q$:CLS 
200 PRINT "THEN LEFT ARROW TO PRIME, AND UP ARROW" 
203 PRINT 

205 PRINT "TO FIRE.':PRINT 

210 PRINT "AT RANDOM TIMES, DIFFERENT FIGURES" 
215 PRINT 

220 PRINT "WILL APPEAR AT THE CENTER OF THE" 

225 PRINT 
230 PRINT "VERTICAL ARM OF THE CROSSROAD. WHEN" 


540 


PRINT 


PRINT "THE FIGURE IS AT THE CENTER, IN LINE" 


PRINT 
PRINT "WITH YOUR LASER, YOU MUST DECIDE " 
PRINT 


PRINT "WHETHER IT IS ALIEN OR FRIENDLY. IF" 


PRINT 

PRINT "YOU BELIEVE THAT IT IS THE LATTER OF" 
PRINT 

PRINT "THE TWO, DO NOTHING--JUST LET IT PASS.: 
PRINT 

PRINT "IF YOU BELIEVE IT IS THE ALIEN, FIRE ": 


GOSUB 2310:GOSUB 2350 
PRINT: PRINT 
INPUT "PRESS ENTER TO CONTINUE: ";Q$ 


CLS:PRINT "THE LASER BY PRESSING THE UP ARROW 


KEY." 
PRINT 


PRINT "REMEMBER, THE LASER CANNOT BE FIRED " 


PRINT 


PRINT "UNTILL YOU HAVE FIRST PRIMED IT BY " 


PRINT 


PRINT "PRESSING THE RIGHT, THEN LEFT ARROW KEYS. 


"sGOSUB 2310 

PRINT 

PRINT "YOUR COMMISSION WILL LAST 10 DAYS. 
PRINT 


PRINT "YOU DESTROY TEN FRIENDLY INTRUDERS " 


PRINT 

PRINT "BEFORE THAT TIME, YOUR COMMISSION" 
PRINT 

PRINT "WILL BE TERMINATED IMMEDIATELY." 
PRINT: PRINT 

INPUT "PRESS ENTER TO CONTINUE:",X$ 
CLS:PRINT "THE FINAL OBJECT: 

PRINT 

PRINT "TO DESTROY AS MANY ALIEN INTRUDERS" 
PRINT 

PRINT "AS YOU CAN BEFORE YOUR COMMISSION " 
PRINT 

PRINT "EXPIRES." 

PRINT 

PRINT 

PRINT 

IF Q$="N" OR Q$="'NO" THEN GOSUB 2300 


GOSUB 2350:INPUT "YOUR LAST NAME, PLEASE:" ,P$ 


CLS:COLOR 15,0,7 


TF" 
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550 REM intercept crossroads 

560 X$=STRING$(16, 219) 

570 AC=3:AR=4:J=1 

580 LOCATE AR,AC:PRINT X$:LOCATE AR+5,AC:PRINT X$ 
590 LOCATE AR,AC+20:PRINT X$:LOCATE AR+5,AC+20: PRINT 


X 

600 AN-ARSL :JaJ+1 

610 IF J>=5 THEN 630 

620 GOTO 580 

630 AAR=8: AAC=37: A$=CHR$(219)+CHR$(16) 

640 AA$=CHR$(17)+CHR$( 219) 

650 COLOR 11:LOCATE AR,AC:PRINT A$:LOCATE AAR, AAC: 
PRINT AA$ 

660 LOCATE 16,5:PRINT "LEADER: ";P$ 

670 LOCATE 17,5:PRINT "PRESENT CONDITION:" 

680 LOCATE 18,5:PRINT "LASER STATUS:" 

690 LOCATE 19,5:PRINT "DAYS TO GO ON COMMISSION:" 

700 REM get figures 

710 F$(1)=CHR$(1) :F$(2)=CHR$(3) :F$(3)=CHR$( 5): F$(4) 
=CHR$(8) :F$(5)=CHR$( 15) 

750 REM alien 

760 A$(1)=CHR$(2) :A$(2)=CHR$(4) :A$(3)=CHR$(6):A$(4) 
=CHR$(14):A$(5)=CHR$(64) 

790 REM double size 

800 FOR I=1 TO 5 

810 F$(I)=F$(1)+F$ (1) 

820 A$(I)=A$(1)+A$(T) 

830 NEXT: KRI=AR:KC1=AC+2 : KR2=AR : KC2=AC+18 

840 REM days/alien/friendly 

850 DA=10:AI=0:FI=0: AD=0: FD=0: DF=0 

860 C$="QUIET ":CC$="ALERT" 

870 L$="CHARGING":LL$="READY  " 

880 LOCATE 17,24:PRINT C$ 

890 LOCATE 18,19:PRINT L$; 


91.PDNnTAIT : 
900 LOCATE 19,31:PRINT DA; 


910 REM start location 

920 LR=13:LC=20 

930 REM condition 

940 FOR T=1 TO 500 

945 IF INT(T/200)=T/200 THEN SOUND T/40,3:SOUND 
32767, 3 

950 I=INTCRND*5+1 ) 

960 N=INTCRND*5+1 ) 

970 IF N=I THEN 1000 

980 NEXT T 

990 GOTO 940 

1000 REM alert / intruder 
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1005 
1010 
1020 
1030 
1040 
1050 
1060 


1070 
1080 
1090 
1100 
1110 
1115 
1120 


1125 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1360 
1370 
1380 


1390 
1400 
1410 


1415 


IF T<=200 THEN T=T+1:GOTO 1005 
X=0:LF=1:XC=0: DS=0: YU=0 
LOCATE 17,24:PRINT STRING$(6, 32); 
FOR T=1 TO 100:NEXT 
LOCATE 17,24:COLOR 28:PRINT CC$: 
FOR TT=1 TO 500:NEXT 
SOUND 1000,3:SOUND 32767,3:X=X+l:IF X<=4 THEN 
1060 
COLOR 12:LOCATE 17,24:PRINT "INTRUDER"; 
R=INT(RND*2+1 ) 
IF R=2 THEN 1110 
LOCATE LR,LC:COLOR N:PRINT F$(N);:GOTO 1115 
LOCATE LR,LC:COLOR N:PRINT A$(N); 
YU=YU+1 
IF E=O THEN EE$=INKEY$:IF LEN(EE$)=2 THEN 
E$=MID$(EE$ ,2,1):E=ASC(E$) 
IF LF=4 THEN 1360 
MM=TNT(RND*2+1 ) 
IF MM=1 AND YU<=70 THEN 1180 
IF LR<=1 THEN 1520 
LR=LR-1: LOCATE LR+1,LC:PRINT STRING$( 2,32); 
IF LF<=6 GOTO 1200 ELSE 1360 
IF LR>=12 THEN MM=2:GOTO 1150 
LR=LR+1:LOCATE LR-1,LC:PRINT STRING$(2,32); 
IF E=77 AND LF=1 THEN 1240 
IF E=75 AND LF=2 THEN 1250 
IF E=72 AND LF=3 THEN 1260 
GOTO 1270 
LF=2:GOTO 1280 
LF=3:GOTO 1280 
LF=4:GOTO 1280 
E=0:GOTO 1090 
COLOR 3:LOCATE 23,5:PRINT "LASER KEY SEQUENCE:": 
PRINT LF-1:COLOR 15:SOUND 300,3 
IF LF=3 THEN 1320 
GOTO 1270 
COLOR 12:LOCATE 18,19:PRINT LL$;:COLOR 15 
GOTO 1270 
REM firing 
IF R=] THEN 1390 
COLOR N: LOCATE LR,LC:PRINT A$(N);:COLOR 15:GOTO 
1400 
COLOR N:LOCATE LR,LC:PRINT F$(N)3;:COLOR 15 
COLOR 12:LOCATE AR,AC+2:PRINT STRING$(15, 222); 
LOCATE AAR,AAC-15:PRINT STRING$(15, 221); :COLOR 
15 
FOR TT=1 TO 30:SOUND 150,1:SOUND 32767,1 
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1417 NEXT 

1420 DEF SEG=&HB800:IF PEEK(600)=32 THEN 1440 

1430 GOTO 1650 

1440 COLOR 11:LOCATE 18,19:PRINT L$:COLOR 15:LF=1 

1450 COLOR 11:LOCATE 23,5:PRINT "INDIRECT HIT 
". sCOLOR 15 

1460 LOCATE KR1,KC1:PRINT STRING$( 16, 32) 

1470 LOCATE KR2,KC2:PRINT STRING$(16, 32) 

1480 FOR TT=1 TO 10:SOUND 450,1:SOUND 32767,1 

1490 NEXT 

1500 GOTO 1090 

1520 REM intruder in dome 

1525 IF YU<=50 THEN 1190 

1530 LOCATE LR,LC:PRINT " "; 

1540 COLOR 12:LOCATE 23,5:PRINT "INTRUDER IS NOW IN 
DOME...':COLOR 15 

1550 FOR TT=1 TO 15:SOUND 900,1:SOUND 32767,1 

1560 NEXT:LOCATE AR,AC+2:PRINT STRING$( 32,32); 

1565 LOCATE 23,5:PRINT STRING$(25, 32) 

1570 FOR TT=1 TO 200:NEXT:SOUND 1750,3 

1575 IF R=1 THEN 1590 

1580 GOTO 1610 

1590 COLOR 3:LOCATE 23,5:PRINT “INTRUDER: 
FRIENDLY.... "s:COLOR 15 

1600 GOTO 1620 

1610 COLOR 11:LOCATE 23,5:PRINT "INTRUDER: ALIEN... 
"COLOR 15 

1620 FOR TT=1 TO 500:NEXT 

1630 IF XC<=3 THEN XC=XC+1:GOTO 1565 

1640 GOTO 1670 

1650 COLOR 3:LOCATE 23,5:PRINT "INTRUDER: DESTROYED 
wae "sCOLOR 15 

1655 FOR TT=1 TO 10:SOUND (TT+10)*10,1:SOUND 32767,1 

1656 NEXT 

1660 DS=1: LOCATE TLR.LC:PRINT "  "::GOTO 1550 

1670 REM variable count 

1680 LOCATE 23,5:PRINT STRING$( 28, 32) 

1690 IF DS=1 THEN 1810 

1700 IF R=1 THEN 1750 

1710 AI=AI+1 

1720 LOCATE 20,5:PRINT "YOU NOW HAVE";AT;"ALIENS IN 
THE DOME." 

1740 GOTO 1790 

1750 FI=FI+1 

1760 LOCATE 21,5:PRINT "YOU HAVE WISELY LET":FT; 
"FRIENDS PASS." 

1790 REM continue if days>=1 
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GOTO 1900 

REM destroyed 

IF R=] THEN 1870 

AD=AD+1 

LOCATE 21,5:PRINT "YOU HAVE DESTROYED ";AD;" 
ALIENS. " 

GOTO 1900 

FD=FD+1 

LOCATE 22,5:PRINT FD;" FRIENDS HAVE NOW BEEN 
DESTROYED." 

REM 

REM dx for days decrease 

REM if less than or equal to 75 
DX=INT(RND*100+1) 

IF DX<=75 THEN DA=DA-—1:DF=DF+1 

FOR TT=1 TO 1200:NEXT 

LOCATE 23,5:PRINT STRING$(34, 32) 

IF DA<=0 OR FD>=10 THEN 1980 

FOR TT=1 TO 10:SOUND 200,1:SOUND 32767,1 
NEXT:GOTO 860 

IF FD>=10 THEN 2010 

LOCATE 23,5:PRINT "YOUR COMMISSION HAS 
EXPIRED... " 

GOTO 2020 

LOCATE 23,5:PRINT "YOUR COMMISSION 
TERMINATED.... " 

FOR TT=1 TO 2000:NEXT 

CLS 

PRINT "DURING YOUR ";DF;'' DAY COMISSION" 
PRINT "YOUR RECORD IS AS FOLLOWS ,";P$;":" 
PRINT "ALIENS ALLOWED TO PASS INTO DOME:"';AI 
PRINT "ALIENS DESTROYED: ''sAD 

PRINT "FRIENDLY INTRUDERS DESTROYED: "3FD 
PRINT 

IF FD>=10 THEN 2240 

PRINT "YOUR COMMISSION HAS BEEN RATED: " 

IF AD>=1 AND AD<=5 THEN 2170 

IF AD>=5 AND AD<=9 THEN 2190 

IF AD>=10 THEN 2210 

PRINT "IMPROPER: POOR USE OF LASER." 

GOTO 2270 

PRINT "FAIR: LASER USED, BUT INSUFFICIENTLY." 
GOTO 2270 

PRINT “EXCELLENT: ALL JUDGEMENTS MADE" 
PRINT "WITH UTMOST CAUTION." 

GOTO 2270 

PRINT “YOU HAVE DESTROYED ";FD;" FRIENDLY" 


2250 PRINT "INTRUDERS, ";P$;". DO NOT ATTEMPT" 

2260 PRINT "TO REAPPLY FOR THIS COMMISSION." 

2270 PRINT 

2280 PRINT "TERMINATION OF PROGRAM." 

2290 END 

2300 INTERCEPT$="02 MS L12 B- A F ML L4 G" 

2310 PLAY "MB MN O2 L2 C L4 F;XINTERCEPT$;MN L4G C;' 

2320 RETURN 

2330 PLAt MB XINTERCEPT$; XINTERCEPT$;:MS L12 AFA 
Ll C; 

2340 RETURN 

2350 PLAY "MB XINTERCEPT$;XINTERCEPT$;P15 L12 MS 
GGG L 1 03 C;" 

2360 RETURN 
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Insomnia for the IBM PC 


10 REM program title: INSOMNIA 
20 CLEAR 200:COLOR 1,11,7:CLS:KEY OFF:WIDTH 40 
30 PRINT "INSOMNIA" 
40 PRINT 
50 PRINT "SO YOU ARE HAVING PROBLEMS" 
60 PRINT "SLEEPING. JUST SIT BACK, KEEP" 
70 PRINT "YOUR EYES ON THE VIDEO AND" 
80 INPUT "PRESS ENTER";X:CLS 
90 A=20:W=0 

100 PRINT:PRINT TAB(A)":"; 

110 PRINT TAB(A-1)":";TABCA+1)":"'s 

120 I=INT(RND*2+1) 

130 IF I=] THEN 160 

140 IF A>=39 THEN 170 

150 A=A+2:GOTO 180 

160 IF A<=10 THEN 150 

170 A=A-2 

180 W=W+1:IF W=15 THEN 350 

190 IF W=700 THEN 210 

200 GOTO 100 

210 IF W<=800 THEN 230 

220 GOTO 250 

230 PRINT 

240 W=W+1:GOTO 210 

250 PRINT "GETTING SLEEPY NOW????" 

260 FOR I=1 TO W:NEXT 

270 IF W<=814 THEN 290 

280 GOTO 300 

290 PRINT: W=W+1:GOTO 270 

300 FOR X=1 TO 40 

310 LOCATE 1,X:PRINT CHR$(219):LOCATE 23,X:PRINT 

CHR$( 219) : NEXT 
320 COLOR 9:FOR X=1 TO 23 
330 LOCATE X,1:PRINT CHR$(219):LOCATE X,40:PRINT 
CHR$( 219) :NEXT 

340 FOR I=1 TO W:NEXT:W=0:GOTO 400 

350 LOCATE 16,20 

360 PRINT "KEEP EYES HERE!" 

370 GOSUB 600 

380 GOTO 190 

400 L=38:AR=2:AC=2: XR=22: XC=6: Y=AR 

410 A$=STRING$(L,L*4+27) 

420 LOCATE AR,AC:PRINT A$; 

430 LOCATE XR,XC:PRINT A$; 

440 A$=STRING$(L, 32) 
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LOCATE AR,AC:PRINT A$ 
LOCATE XR,XC:PRINT A$ 
AR=AR+1:XR=XR-1:IF AR=12 THEN 530 


IF XR 


=Y THEN 500 


GOTO 410 


IF W<= 


GOSUB 
W=W+1 


5Q THEN 520 
600:GOTO 610 


:-IF W=25 THEN GOSUB 580 


GOTO 400 
IF W>1 THEN 480 
LOCATE AR, 10 


PRINT "STARE AT THIS LOCATION"; 
GOSUB 600 

GOTO 480 

A2=AR-6:IF AR<=0 THEN AR=1 


Al=AC+25:IF Al>=40 THEN A1=40 
PRINT "NOW FOLLOW THE BARS"; 
FOR [=1 TO 1000:NEXT:RETURN 
CLS 
PRINT "IF YOU ARE NOT GETTING SLEEPY" 
PRINT "BY NOW, YOU'RE A HOPELESS" 
PRINT "CASE!!!" 
GOSUB 600:PRINT 
PRINT "THIS IS THE LAST PHASE OF" 
PRINT "INSOMNIA. IF IT FAILS, RUN" 
PRINT "THE ENTIRE PROGRAM ONCE" 
PRINT "AGAIN..... " 
GOSUB 600:PRINT 
PRINT "KEEP YOUR EYES ON THE MOVING" 
PRINT "BLOCK, THINKING TO YOURSELF" 
PRINT '"'I AM GETTING SLEEPY..... 
INPUT "PRESS ENTER "3;X:W=0 
COLOR 4,2:CLS:P$=STRING$(2, 219): A$=STRING$( 2, 32) 
: PC=PC+30 
Y=20:FOR X=6 TO 9 
LOCATE X,Y:PRINT CHR$(219) :NEXT 
PR=X 3 PC=20 
GOSUB 1100 
FOR X=6 TO 9 
LOCATE X,Y:PRINT CHR$( 32) :NEXT 
IF Z=1 THEN 930 
FOR X=6 TO 9 
LOCATE X,Y:PRINT CHR$( 219): Y=Y-1:NEXT 
GOSUB 1120 

MY PC=PC-6 
GOSUB 1100 
Y=20 


890 FOR X=6 TO 9 

900 LOCATE X,Y:PRINT CHR$(32):Y=Y-1:NEXT 

910 GOSUB 1120: 

920 Z=1:GOTO 760 

930 GOSUB 1120 

940 FOR X=6 TO 9 

950 LOCATE X,Y:PRINT CHR$(219) :Y=Y+1:NEXT 

960 PC=PC+5:LOCATE PR,PC:PRINT P$ 

970 Y=20:FOR X=6 TO 9 

980 LOCATE X,Y:PRINT CHR$(32) 

990 Y=Y+1:NEXT 

1000 GOSUB 1120 

1010 W=W+1 

1020 IF W=5 THEN 1050 

1030 IF W=50 THEN 1150 

1040 Z=0:GOTO 760 

1050 FOR X=12 TO 27 

1060 LOCATE 6,X:PRINT CHR$(219):LOCATE 11,X:PRINT 
CHR$( 219) sNEXT 

1070 FOR X=6 TO 11 

1080 LOCATE X,12:PRINT CHR$(219):LOCATE X,27:PRINT 
CHR$( 219) :NEXT 

1090 GOTO 1030 

1100 LOCATE PR,PC:PRINT P$; 

1110 RETURN 

1120 LOCATE PR,PC:PRINT A$; 

1130 RETURN 

1150 REM end of program 

1155 LOCATE 6,20:PRINT P$ 

1160 GOTO 1160 
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Lap-the-Track for the IBM PC 


5 


CLEAR 200:CLS:KEY OFF:WIDTH 80 


V$=RIGHT$(TIME$,2): ‘use PC clock to seed random 
number generator 

V=VAL(V$) 

RANDOMIZE V 

PRINT TAB(25) "-:-: LAP-THE-TRACK :-:-—" 

PRINT :DIM A$(15),A(15) ,LA(15) ,T(15) 


INPUT "INSTRUCTIONS": A$ 

IF A$<>"Y" AND A$<>"YES" THEN 300 

PRINT "UP TO FIFTEEN PEOPLE BET ON FOUR MOVING 
SPOTS THAT ARE IN A FAST RACE" 

PRINT 

PRINT "TO THE FINISH. A COMPLETE RACE CONSISTS 
OF TEN LAPS. EACH PLAYER" 

PRINT 

PRINT "WILL BE ABLE TO CHOOSE A LANE (1-4) AND 
MAKE A BET OF ANY DESIRED " 

PRINT 

PRINT "AMOUNT ON THAT LANE. IF THERE ARE NO 
WINNERS, THE COMPUTER WILL" 

PRINT 

PRINT "PLACE THE MONEY ON A LANE OF ITS CHOICE 
IN THE NEXT RACE. IF THE" 

PRINT 

PRINT "COMPUTER'S SPOT HAPPENS TO WIN, IT WILL 
NOT TAKE THE MONEY, IT WILL" 

PRINT 

PRINT "JUST BET ON ANOTHER LANE. SO, NO MATTER 
HOW YOU SLICE IT, SOMEONE" 


PRINT 
PRINT "IS BOUND TO WIN. (YOU CAN USE REAL 
MONEY IN THIS GAME IF YOU WANT TO.)" 
) PRINT 
PRINT 
INPUT "HOW MANY WILL PLAY"3A 


IF A<1 OR A>15 THEN 320 

PRINT "INITIALS, PLEASE"; 

FOR I=1 TO A 

INPUT A$(I) :NEXT 

PRINT 

PRINT "YOU WILL NOW SELECT A LANE." 
T=1 

PRINT A$(I):": LANE NUMBER": 


INPUT LACT) 
IF LAC(I)<1 OR LACI)>4 THEN 390 


) PRINT "BET WHAT AMOUNT?" 


INPUT ACT) 

t=I1+1 

IF I>A THEN 480 

PRINT 

GOTO 390 

CLS:GOSUB 1300:IF ZZ=1 THEN 530 

PRINT "IF MORE THAN ONE PLAYER WINS (SELECTION 
OF SAME LANE), ALL MONEY" 

PRINT "WILL BE DIVIDED AS EQUALLY AS POSSIBLE." 
PRINT: IF CB=1 THEN 960 

PRINT "PRESS ENTER TO START THE RACE:" 

INPUT A$:COLOR 14,6,10:CLS 

REM outer track 

S$=STRING$(80, 219) :LOCATE 1,1:PRINT S$:LOCATE 
6,1:PRINT S$ 

LOCATE 11,1:PRINT S$:LOCATE 16,1:PRINT S$ 

FOR X=2 TO 5:LOCATE X,1:PRINT CHR$( 219) :LOCATE 
X,80:PRINT CHR$(219) 

NEXT 

FOR X=12 TO 15:LOCATE X,1:PRINT CHR$( 219): 
LOCATE X,80:PRINT CHR$(219) 

NEXT 

REM spot locations 

GOSUB 1200:GOSUB 1410:L=1:IR=7:IC=1 
LR(L)=IR:LC(L)=IC:RR(L)=IR:RC(L)=IC: PR(L)= 
TR-5: PC(L)=IC+30: LP(L)=0 

IR=IR+1:IF L>=4 THEN 680 

L=L+1:GOTO 650 

FOR I=1 TO 4 

COLOR I:LOCATE LR(I),LC(I):PRINT CHR$( 254) :NEXT 
REM start race 

PLAY "MF MS 03 LO C F A O04 L8 C L16 CC L8 C 03 
L8 A L16 AA L8 AF AF L4 C" 

LP=0: X$=CHR$(219):PK=LR(1)+1 

T=INT(RND*4+1) :M=ABS(I-5) 

IF LC(I)>80 THEN 1000 ELSE LOCATE LR(I), 
LC(I):PRINT " ": 

IF ABS(LC(1I)-RC(1I))>=60 THEN 1000 
LC(1I)=LC(1I)+INT(RND*154+1):IF LC(I)>=80 THEN 
GOTO 1000 

COLOR I:LOCATE LRC1I),LC(1I):PRINT X$:SOUND I*50,1 
IF M+1<>I AND M+1<>5 THEN 790 

GOTO 820 

IF LC(M+1)>80 THEN LC(M+1)=80 

LOCATE LR(M+1),LC(M+1):PRINT " " 
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800 LC(M+1)=LC(M+1)+INT(RND*4+1):IF LC(M+1)>=80 
THEN GOTO 1000 

810 COLOR (M+1):LOCATE LR(M+1) ,LC(M+1):PRINT 
X$:SOUND (M+1)*50, 1 

820 IF M—1l<>I AND M-1<>0 THEN 840 

830 GOTO 870 

840 IF LC(M-1)>80 THEN LC(M-1)=80 

845 LOCATE LR(M-1),LC(M-1):PRINT " "; 

850 LC(M-1)=LC(M-1)+INTCRND*44+1):IF LC(M-1)>=80 
THEN GOTO 1000 

860 COLOR (M-1):LOCATE LR(M--1),LC(M-1):PRINT X$;: 
SOUND(M-1)*50,1 

870 IF M+2<>5 AND M+2<>6 THEN 890 

880 GOTO 720 

890 IF LC(M+2)>80 THEN LC(M+2)=80 

895 LOCATE LR(M+2),LC(M+2):PRINT " " 

900 LC(M+2)=LC(M+2)+INT(RND*4+1):IF LC(M+2)>=80 
THEN GOTO 1000 

910 COLOR (M+2):LOCATE LR(iM+2) ,LC(M+2):PRINT X9: 
SOUND( M+2)*50, 1 

920 IF LC(M)>80 THEN LC(M)=80 

925 LOCATE LR(M),LC(M):PRINT " " 

930 LC(M)=LC(M)+INT(RND*4+1):IF LC(M)>=80 THEN 
GOTO 1000 

940 COLOR M:LOCATE LR(M),LC(M):PRINT X$; :SOQUND 
M*50,1 

950 GOTO 720 

960 CB=0:COLOR 14:LOCATE 18,1:PRINT "THE COMPUTER 
WILL PLACE THE AMOUNT OF ";USING AA$;AM 

970 RF=INT(RND*4+1 ) 

980 RF=INT(RND*4+1):PRINT:PRINT "ON LANE '";RF;"." 

985 MN(RF)=MN(RF)+AM: AM=0 

990 GOTO 540 


1000 IF LC(I)>80 THEN LC(1)=80 
1005 LOCATE LR(T),LC(T):PRINT " ". 


AVY Nd Net oa de hed eed de ~~ , lite S 


1010 LC(I)= RC(T) 

1020 LP(I)=LP(1I)+1:LOCATE PR(I),PC(I):COLOR 14: 
PRINT LP(I); 

1030 IF LP(I)>=10 THEN 1500 

1040 GOTO 720 

1200 COLOR 14:LOCATE 2,2:PRINT "LAPS - LANE 1:"; 

1210 LOCATE 3,2:PRINT "LAPS — LANE 2:": 

1220 LOCATE 4,2:PRINT "LAPS — LANE 3:"; 

1230 LOCATE 5,2:PRINT "LAPS - LANE 4:"; 

1240 REM amounts bet per lane 

1250 LOCATE 12,2:PRINT "LANE l..... Ms 

1260 LOCATE 13,2:PRINT “LANE 2..... Ms 
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1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1500 
1510 
1520 


1530 
1540 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1725 
1730 
1740 


LOCATE 14,2:PRINT "LANE 3..... " 
LOCATE 15,2:PRINT "LANE 4..... me 
RETURN 

REM amounts on lanes 

T=1 

FOR I=1 TO A 

IF LA(I)=T THEN 1350 


NEXT:GOTO 1370 
MN(T)=MN(T)+A(CT) 
GOTO 1340 
T=T+1 
IF T>=5 THEN 1400 
GOTO 1320 
RETURN 
REM print amounts 
AAS="$$# ,### fH" 
T=1:FR1=12:FC1=13 
COLOR 14:LOCATE FR1,FC1l:PRINT USING AA$;MN(L) 
J=I+1:FR1=FR1+1 
IF I>=5 THEN RETURN 
GOTO 1440 
REM finish 
WW=1 
COLOR 30:LOCATE PR(I) ,PC(I)+10:PRINT "WINNER" 
;:FOR T=1 TO 3:SOUND 1000,1:SOUND 800, 1:NEXT 
FOR TU=1 TO 1000 
NEXT:COLOR 14 
IF WW>=6 THEN 1580 
WW=WW+1:GOTO 1520 
REM player lane select 
WW=0 
FOR T=1 TO A 
IF LA(T)=I THEN 1630 
NEXT:GOTO 1650 
WW=WW+1:TCWW)=T 
GOTO 1620 
FOR I=1 TO 4:AM=AM+MN(I) :MNCI)=0 
NEXT: IF WW=0 THEN 1760 
COLOR 14:LOCATE 12,30:PRINT "“WINNER(S):": 
WXR=13:WXC=30 
FOR I=1 TO WW 
LOCATE WXR,WXC:PRINT A$(TCI)); 
IF WW>1 THEN PRINT ","s 
WXC=WXC+5 : NEXT 
IF WW=1 THEN 1790 
LOCATE 14,30:PRINT "EACH WINNER RECEIVES:"; 
LOCATE 15,30:PRINT USING AA$;AM/WW; 
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1750 AM=0:GOTO 1820 

1760 LOCATE PR(1),PC(1)+13: 

1770 PRINT '** NO WINNERS ** "e 
1780 GOTO 1870 

1790 LOCATE 14,30:PRINT,: 

1800 PRINT "YOU WILL RECEIVE:": 

1810 GOTO 1740 

1820 REM another 

1830 LOCATE 7,1:PRINT,; 

1840 INPUT "ANOTHER RACE (Y/N)":A$ 
1850 IF A$="N" THEN 2000 

1860 COLOR 7,0,0:CLS:2Z=1:GOTO 360 
1870 FOR TU=1 TO 1200:NEXT 

1880 COLOR 14:LOCATE 19,1 

1890 PRINT "IF ANOTHER RACE IS HELD, THE"; 
1910 PRINT "COMPUTER WILL BET THE MONEY"; 
1930 PRINT "ON A LANE IT SELECTS.": 
1940 CB=1:GOTO 1820 

2000 REM end 

2010 CLS 

2020 PRINT "FAREWELL 'TIL NEXT RACE." 
2030 END 
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Be Prepared for the IBM PC 


REM program title: BE PREPARED (PART I) 


V$=RIGHT$(TIME$, 2): 


"use PC clock to seed 


random number generator 
V=VAL(V$) 
RANDOMIZE V 


WIDTH 
COLOR 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


4O:KEY OFF 
15,11,10:CLS 
"BE PREPARED PART TI) 


"TF YOU HAVEN'T DONE SO, READ AND" 
"FOLLOW ALL INSTRUCTIONS FOR PLAY." 
"YOU MUST UNDERSTAND EVERYTHING." 


"INSTRUCTIONS"; Q$ 


IF MID$(Q$,2,1)<>"E" THEN 400 


PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 

PRINT 
PRINT 
PRINT 
PRINT 


) PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 


"THIS GAME TAKES PLACE IN A" 

" DISTANT OUTER SPACE" 

"LOCATION. YOU WILL SEE FOUR" 
"TUBES WITH THE TOP CLOSED AND" 
"THE BOTTOM OPEN FOR ENTRY. THESE" 
"ARE THE PORTS. YOUR VESSEL," 
"REPRESENTED BY AN ASTERISK, WILL" 
"BE LOCATED BELOW THE TUBES. IT" 
"WILL MOVE CONTINUOUSLY FROM LEFT" 
"TO RIGHT. ONE OF THE NUMERAL " 
"KEYS 1 AND 2 WILL PROPEL YOUR" 
"CRAFT INTO A TUBE, BUT YOU MUST" 


"PRESS ENTER TO CONTINUE:", X$ 


"GUESS WHICH KEY WILL DO THE JOB." 
"ONLY ONE KEY WILL WORK EACH TURN" 
"AND THE COMPUTER WILL INCREASE" 
"THE NUMBER OF KEYS YOU MUST " 
"CHOOSE BETWEEN EACH CYCLE (1.E.," 
"] TO 3, THEN 1 TO 4, ETC.)" 

"YOU HAVE TWENTY VESSELS TO BRING" 
"SAFELY TO PORT. EACH VESSEL" 
"HAS A LIMITED AMOUNT OF FUEL." 
"IF YOU UNDERSTAND ALL INSTRUC-" 
"TIONS, PRESS ENTER TO PORT" 

"THE FIRST VESSEL:"; 

X$ 
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REM vessels/begin value 

V=20: DS=0: DK=0: VL=2 

REM tubes 

X=3:Y=13 

FOR T=Y¥ TO 1 STEP -1 

LOCATE T,X:PRINT CHR$(219):LOCATE T,(X+5): 
PRINT CHR$( 219) :NEXT 

FOR T=X TO X+5 

LOCATE 1,T:NEXT 

REM do four 

X=X+10 

IF X>=43 THEN 530 

GOTO 450 

REM bottom of ports 

W=1:X=3 

FOR T=W TO X 

LOCATE Y,T:PRINT CHR$(219):NEXT:IF P=1 THEN 600 
W=X+6:X=X+10 

If W>=39 THEN X=40:Ps1 

GOTO 550 

REM fuel 

F=200 

F$="FUEL REMAINING " 

XR=16: XC=10 

FOR I=1 TO LEN(CF$) 

LOCATE XR,XC:PRINT MID$(F$,I,1); 
XC=XC+1:GOSUB 1500 

NEXT: IF G=1 THEN RETURN 

QC=XC: QR=XR 

LOCATE QR,QC:PRINT F 

REM start locale 
LR=15:LC=1:V$="*":ZX=2550:PK=1 
M=LC+39: P=INT(RND*VL+1 ) :R=O0 
LOCATE LR,LC:PRINT V$; 

REM by inkey$ 


) X$=LNKEY$ 


IF VAL(X$)=P THEN 900 

FOR T=1 TO 5:NEXT 

LOCATE LR,LC:PRINT " "'; 

IF R=1 THEN 810 

LC=LC+1:GOTO 840 

LC=LC-1 

IF LC<=M THEN 720 

GOTO 850 

IF LC>=M THEN M=LC-39:R=1:VL=VL+1 
P=P-1:1F VL>=9 THEN VL=9 


IF F<=0 THEN 1200 


870 LOCATE QR,QC:PRINT F;:LOCATE QR,QC+5:PRINT 


880 
890 
900 
910 
920 
930 
940 
950 
960 


970 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1200 
1210 
1220 
1230 
1240 
1250 
1300 
1310 
1320 
1330 
1340 
1350 
1355 
1360 
1370 
1380 
1385 
1390 


"TONS": 

IF INT(F/10)=F/10 THEN 1540 

GOTO 730 

REM port? 

J=1:ZX=500: PK=0 

LOCATE LR,LC:PRINT " "; 

LR=LR-1:I1F LR<=1 THEN 1000 

LOCATE LR,LC:PRINT V$; 

J=J+1:GOTO 1540 

DEF SEG=&HB800: IF PEEK( (LR-2)*80+2*(LC-1)) 
<>32 THEN 990 

GOTO 920 

IF J<=2 THEN 1030 

Fg=" VESSEL DOCKED SAFELY " 
G=1:GOSUB 630 

DK=DK+1:GOTO 1070 

Fe="V ESSEL DESTROY E D" 
FOR T=1 TO 500:NEXT:LOCATE LR,LC:PRINT " "': 
G=1:XR=20:XC=5:GOSUB 640 

DS=DS+1 

GOSUB 1600 
F$=STRING$( 32, 32) :XR=20: XC=5 
GOSUB 640 

V=V-1:G=0 

TF V<=0 THEN 1300 

VL=VL+1 

IF VL>=9 THEN VL=9 

GOTO 600 

REM fuel exhausted? 

Fe="F UEL EXHAUST E D" 
G=1:XR=20:XC=5 

GOSUB 640 

FOR T=1 TO 500:NEXT 

GOTO 1030 

REM all vessels in 

G=1:XX=1 

F$="A LL VESSELS IN " 
XR=16:XC=5:GOSUB 640:GOSUB 1600: XR=XX:XC=5:CLS 
F$="YOU HAVE DOCKED" 

GOSUB 640:PRINT DK;:F$="VESSELS" 
XC=XC+4 

GOSUB 640:XR=XX+1:XX=KX+1:XC=5 
F$="YOU HAVE DESTROYED" 

GOSUB 640:PRINT DS;:F$="VESSELS" 
XC=XC+3 

GOSUB 640: XR=XX+1:XX=XX4+1:XC=5 
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1400 
1410 
1420 
1500 
1510 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
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F$="END OF MISSION..." 
GOSUB 640 

END 

REM sound routine 

SOUND 10*( ASCC(CMID$(F$,1I,1))+10),1:SOUND 32767,1 
RETURN 

REM more sound 

SOUND ZX,1:SOUND 32767,1 
IF PK=1 THEN 1580 

GOTO 960 

IF F<=100 THEN ZX=ZX-100 
GOTO 890 

REM for message loop 

FOR T=1 TO 1200:NEXT 
RETURN 


The Course for the IBM PC 


10 REM program title:THE COURSE 
20 KEY OFF:COLOR 7,2,3:CLS:WIDTH 40:PRINT TAB(10); 
30 PRINT ">>> THE COURSE <<<" 
40 PRINT 
50 INPUT "REQUIRE INSTRUCTIONS"; X$ 
60 IF X$=""N" OR X$="NO" THEN 210 
70 PRINT 
80 PRINT "THE COURSE WILL REQUIRE THAT YOu" 
90 PRINT "USE TOP NOTCH REFLEXES TO CONTROL" 
100 PRINT "YOUR VEHICLE TO A DISTANCE OF" 
110 PRINT "10 LAPS. THE COURSE WILL BE BOTH" 
120 PRINT "STRAIGHT AND WINDING. YOU WILL" 
130 PRINT "CONTROL YOUR VEHICLE WITH THE" 
140 PRINT "LEFT AND RIGHT ARROW KEYS." 
150 PRINT "THE SLIGHTEST CONTACT TO THE" 
160 PRINT “EDGE OF THE TRACK WILL CAUSE" 
170 PRINT "AN ACCIDENT, AND A HIT" 
180 PRINT “ADDED TO YOUR SCORE." 
190 PRINT:PRINT:PRINT "STRIKE A KEY..." 
200 X$=INKEY$:IF X$=""' THEN 200 
210 CLS:T=1:AT=1 
220 INPUT "FIRST NAME OF DRIVER"; D$ 
225 IF D$='"" THEN PRINT:GOTO 220 
230 PRINT D$;'"' STRIKE A KEY TO BEGIN..." 
240 X$=INKEY$:IF X$="" THEN 240 
245 IF T>=2 THEN CLS:GOTO 260 
250 CLS:DIM CX(26) ,CY( 26) 
260 LOCATE 1,1:PRINT "DRIVER: ":D$::GOSUB 1000 
265 CC=0:LP=0:LL=0:HI=0:REM the course 
270 CX=1940:CY=CX+18: J=219:C=1 
275 Cl=CX+6:C2=C1+2:REM the vehicle 
280 KY=0:IF CX<=1 OR Cl<=1 THEN 400 
285 IF CC=1 THEN 420 
290 DEF SEG=&HB800:POKE CX ,J:POKE CY,J 
295 CX(C)=CX:CY(C)=CY:REM to blank old course 
300 CX=CX-80:CY=CY-—80 
305 C=C+1 
310 DD=2* INTC RND*2+1 ) 
‘315 KY$=INKEY$:IF LEN(KY$)=2 THEN KY=ASC(MID$ 
(KY$,2,1)) 
320 IF DD=2 THEN 340 
330 CX=CX+DD-—2:CY=CY+DD~2:GOTO 360 
340 DD=-DD 
350 CX=CX+DD:CY=CY+DD 
360 REM check for movement of vehicle 
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IF KY=75 THEN 500 

IF KY=77 THEN 530 

GOTO 280 

CC=1:LP=LP+1 

IF (LP/10)=.6 THEN LL=LL+1:LP=1 
LOCATE 2,1:PRINT “LAPS=""5LL; 

IF LL>=10 THEN 700 ELSE GOTO 270 
DEF SEG=&HB800: POKE CX(C),32:POKE CY(C),32 
POKE €C1,32:POKE C2, 32 

IF C2<=156 THEN 290 

C1=C1-80:C2=C2-80 

POKE C1,204:POKE C2,185:POKE C1+1,36:POKE 
C2+1 , 36 

CL=PEEK(C1-2) : CR=PEEK (C2+2) 

IF ABS(CL+CR)<>64 THEN 600 

GOTO 290 

REM vehicle movement (left) 

DEF SEG=&HB800: POKE C1,32:POKE C2,32:POKE 
C1+1,39:POKE C2+1,39 

C1=C1-2:C2=C2-2 

GOTO 280 

REM vehicle movement (right) 

DEF SEG=&HB800:POKE C1,32:POKE C2,32:POKE 
C1+1,39:POKE C2+1,39 


IF €2<=84 THEN 280 
Cl=C1+2:C2=C2+2 

GOTO 280 

REM hits to vehicle 

HI=HI+1 

LOCATE 3,1:PRINT "“HITS=";HI; 

GOTO 290 

REM finish 

LOCATE 4,1:PRINT STRING$(40, 32) 

IF HI=0 THEN 800 

PRINT "YOU DIDN'T MAKE THE": LES "LADS! 
PRINT “WITHOUT ERROR. YOU TOOK A" 
PRINT "TOTAL OF";HI;"HITS...." 
PRINT "TRY AGAIN, ";D$; 

INPUT X$ 

IF X$="N" OR X$="NO" THEN 1100 
AT=AT+1:PRINT:GOTO 830 

PRINT “NOT BAD, NO HITS AT ALL" 
PRINT "THINK YOU MIGHT WANT TO" 
GOTO 760 


QO T(T)=HT:REM best score 


T=1:2=0 
TRON: IF T(1)<=T(I+1)THEN 8800K 


860 YS=T(1):TCI)=TCI+1):TC14+1)=YS 
870 Z=1 

880 I=I+1:IF I>=T THEN 900 

890 GOTO 850 

900 IF Z=1 THEN 840 

910 BS=T(1) 

920 T=T+1:IF T>=5 THEN BS=T(1):T=3 

930 PRINT 

940 PRINT:GOTO 230 

1000 REM message 

1010 IF T<=2 THEN 1040 

1020 LOCATE 1,28:PRINT "BEST SCORE: ";BS; 
1030 LOCATE 2,28:PRINT "ATTEMPTS: "sAT; 
1040 RETURN 

1100 REM end 

1110 CLS 

1120 PRINT "END OF PROGRAM RUN..." 

1130 END 
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Trapped for the IBM PC 
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V$=RIGHT$(TIME$,2): ‘use PC clock to seed 
random number generator 

V=VAL(V$) 

RANDOMIZE V 

REM program title <TRAPPED> 

CLS:KEY OFF:CLEAR 100:DIM AA(12),PI(12) ,1$(12) 
:WIDTH 40 

COLOR 1,0:PRINT TAB(15)CHR$(174);:COLOR 20, 
O:PRINT "TRAPPED"; :COLOR 1,0:PRINT CHR$(175) 
COLOR 2,0:PRINT:INPUT "LIST INSTRUCTIONS"; W$ 
IF W$="Y" OR W$="'YES" THEN GOSUB 3500 
CLS:GOSUB 3300: TU=1 

QQ=1 :MM=0:CR=0 

$1=440:S82=514+50:CC=0: BR=0:TP=10000! : TR=TP 
REM border graphics 

X=1920: Y=X+78:C=219:U=0 

DEF SEG=G@HBS00: FOR IT=x TO Y STEP 2:POKE I, 
222:POKE (I+1),2 

POKE I-1920,222:POKE (I-1919),2:NEXT 

FOR I=2 TO 22 

POKE (1I*80) ,222:POKE ((1I*80)+1) ,2:POKE 
(I*804+78) ,222:POKE ((1*80)+79) ,2:NEXT :GOSUB 3450 
COLOR 9,0 ‘rem inner graphics 

IN=X-160 

R=IN+2* INTC RND*39+1) :R1=R: L=2* INT (RND*2+1) 
FOR I=IN TO R STEP 2:POKE I,C 

IF L=l1 AND U<=3 THEN POKE I-80,C 

NEXT 

R2=2* INT(RND*7+1) :R3=R2+2* INT(RND*10+1):GOTO 500 
FOR I=R1+R2 TO R1+R3 STEP 2 

POKE I,C:NEXT 

GOTO 560 

U=U+1 

IF U<>5 THEN 180 

REM graphics from right side 

FOR J=1 TO INT(RND*10+1) 

FOR I=0 TO 4 

IF R(I)=0 THEN 310 

POKE R(1I),C:RCT)=R(1)-2 

NEXT I,J 

REM start position 

P=2* INT(RND*842+79 ) 

IF PEEK(P)<>32 OR PEEK(P+4)<>32 THEN 330 


9 LF CPEEK(P+80)+PEEK(P-80) )=438 THEN 330 


CP=P+4:POKE P,220:POKE (P+1),14:POKE CP,223:POKE 
(CP+1),14 


REM movement of computer piece 
S3=210:S4=880 

IF PEEK(P-80)=32 THEN A=1:GOTO 440 
SOUND S1,3:SOUND S2,3: 

IF PEEK(P+80)=32 THEN A=2:GOTO 440 

IF PEEK(P-4)=32 THEN A=3:GOTO 440 

IF PEEK(P+4)=32 THEN A=4:GOTO 440 
GOTO 810 

POKE P,32:IF PEEK(CP)=32 THEN 1700 
FOR H=1 TO 100:X$=INKEY$:IF LEN(X$)=2 THEN 900: 
NEXT 

GOTO 1100 

ON A GOTO 460,470, 480, 490 

P=P—80:POKE P,220:POKE P+1,12:MM=0:GOTO 710 
P=P+80:POKE P,220:POKE P+1,12:MM=0:GOTO 400 
P=P~4:POKE P,220:POKE P+1,12:GOTO 760 
P=P+4:POKE P,220:POKE P+1,12:GOTO 420 
REM within limits (board graphics) 

IF ABS(CRI+R3)-IN)>=X THEN 200 

REM gap too small 

IF ABS((R1+R2)-R)<=4 THEN 200 

IF R3<=9 THEN 200 

GOTO 210 

REM poke more to right 

IF ABS(CIN-78)-(R1+R3) )>=10 THEN 600 
X=X-—240: IN=X-160:POKE IN,C 

GOTO 240 

R4=2* INT(RND*8+1):IF R4<=6 THEN 600 
R4=R44+R1+R3 

R5=R4+-2* INTC RND* 1041) 

IF ABS(R5-R4)<=2 THEN 620 

IF ABS(R5-IN)>=62 THEN 680 

FOR I=R4 TO R5 STEP 2:POKE I,C 

IF L=1 AND U<>4 THEN POKE (I-80) ,C 
NEXT 

REM variables (right side graphics) 
FF=IN-76:R(U)=FF:N(U)=ABS(FF-R5) 

GOTO 580 

REM down/up-search left/right 

IF PEEK(P-4)=32 THEN 410 

IF PEEK(P+4)=32 THEN 420 

IF A=1 THEN 390 

GOTO 400 

REM left/right search down/up 

IF PEEK(P-80)=32 THEN 390 

IF PEEK(P+80)=32 THEN 400 

IF A=3 THEN 410 

GOTO 420 
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810 REM trapped(counter) 

815 A(QQ)=A 

820 IF A(QQ)=A(QQ-1) THEN 880 

830 IF MM>=8 THEN 1240 

840 IF MM>=4 THEN S3=S3+10:CR=CR+10 

860 QQ=0041:IF QQ>=3 THEN QQ=1 

870 GOTO 390 

880 IF PEEK(P+4)=223 OR PEEK( P-4)=223 THEN MM=MM+1 

890 GOTO 830 

900 REM user piece/move per key 

910 FOR H=1 TO 100:XX$=INKEY$:IF LEN(XX$)=2 THEN 
X$=MID$(XX$,2,1):NEXT 

920 IF ASC(X$)=80 THEN 970 

930 IF ASC(X$)=72 THEN 990 

940 IF ASC(X$)=77 THEN 1010 

950 IF ASC(X$)=75 THEN 1030 

960 CC=0:GOTO 450 

970 IF PEEK(CP+80)<>32 THEN 960 


980 POKE CP,32:CP=CP480:GOTO 19050 

990 IF PEEK(CP-80)<>32 THEN 960 

1000 POKE CP,32:CP=CP-80:GOTO 1050 

1010 IF PEEK(CP+4)<>32 THEN 960 

1020 POKE CP,32:CP=CP+4:GOTO 1050 

1030 IF PEEK(CP-4)<>32 THEN 960 

1040 POKE CP,32:CP=CP-4 

1050 POKE CP,223:POKE CP+1,14:TP=TP-1 

1060 SOUND S1,3:SOUND 82,3 

1070 REM users moves(counter ) 

1080 CC=CC+1:IF CC>=10 THEN CC=0:GOTO 450 

1090 GOTO 900 

1100 REM sound/computer piece 

1110 REM charge rate (diminish by plus) 

1120 SOUND $1,3:SOUND S4,3 

1130 CR=CR+1 

1140 IF CR>=100 THEN GOSUB 1450:GOTO 1180 

1150 LF CR>=99 ‘THEN $4=54+LU 

1170 GOTO 450 

1180 REM recharge computer piece 

1190 POKE P,220:POKE P+1,12:FOR C=1 TO ((S4*.2) 
-100)STEP 50 


1200 SOUND 100*C,3:SOUND (S2-100),3 
1210 NEXT: CR=0:S4=880: POKE P,32 
1220 GOSUB 1510:GOSUB 3450:GOTO 450 
1240 REM trapped? 

1250 REM check charge rate first 
1260 IF CR>=925 THEN 1280 

1270 GOTO 1290 
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1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1600 
1610 
1620 
1630 
1640 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 


CR=1000:GOTO 1370 

REM trapped computer piece 

L=0 

POKE P,32:FOR TI=1 TO 100:NEXT 
POKE R,220:POKE R+1,12:FOR TI=1 TO 50 
SOUND S1:SOUND 82 

NEXT 

L=L+1:IF L<=2 THEN 1310 

GOTO 1600 

GOSUB 1450:POKE P,32:MM=0 

P=P+6 

GOTO 450 

REM message 

MG=20:M$="RECHARGING" 

FOR I=1 TO LEN(M$) 

POKE MG,ASC(MID$(M$,1,1)):POKE MG+1,132 
MG=MG+2: NEXT 

POKE MG, 32:RETURN 

MG=20 

FOR I=1 TO LEN(M$) 

POKE MG,222:POKE MG+1,2 

MG=MG+2: NEXT 

POKE MG ,222:RETURN 

REM message (trapped) 

MG=20 

M$="*TRAPPED**" 

GOSUB 1470 

GOTO 1910 

REM user "burned" 

MG=20 

M$='"* USER BURNED *" 

GOSUB 1470 

REM leave user position as-is 
L=0:MM=0 

POKE CP,32:FOR TI=1 TO 100:NEXT 
POKE CP,223:POKE CP+1,14:FOR TI=1 TO 5 
SOUND S1,3:SOUND (S1-180) ,3 
NEXT: IF L<=1 THEN L=L+1:GOTO 1760 
BR=BR+1:GOSUB 1510:GOSUB 3450 

IF BR>=6 THEN GOSUB 1830:GOTO 1870 
GOTO 445 

L=O0 

FOR I=1 TO 45 STEP 9 

SOUND S2,3:SOUND (I*100),3 

NEXT :CLS : RETURN 

PRINT 

COLOR 2,0:PRINT:PRINT "YOU'VE BEEN BURNED " 
BR;'' TIMES" 


’ 
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PRINT “SUCKER! !!";:TP=0 

PRINT "YOU'RE OUT OF THE GAME...";:GOTO 2000 
REM trapped 

GOSUB 1830 

PRINT "YA GOT ME TRAPPED, TURKEY!!!" 

PRINT "YOUR TOTAL POINTS NOW EQUAL "; 

PRINT TP 

PRINT "YOU MADE A TOTAL OF ";TR-TP;" MOVES" 
PRINT "BEFORE TRAPPING ME..... " 

FOR H=1 TO 2:SOUND S1,3:SOUND (S1*2) ,3:NEXT 
REM player advance 


) PIC TU)=TP 


IF TU=N THEN 2100 

TU=TU+1 

PRINT "PRESS ENTER WHEN READY, ";I$(TU); 
INPUT W$:CLS 

GOTO 70 

REM all played 

REM sort numbers/players 

IF N=1 THEN 2220 

F=Q:AA=1 

IF PICAA)>=PICAA+1) THEN 2190 
P=PI(AA):PICAA)=PI(AA+1) 

PIC AA+1 )=P:I1$=I1$( AA) 
I$CAA)=I$CAA+1) : T$CAA+1 )=I$ 

F=] 

IF AA<N THEN AA=AA+1:GOTO 2140 

IF F=1 THEN 2130 

GOTO 2260 

PRINT "YOU'VE PLAYED BY YOURSELF, AGAINST" 


PRINT "THE COMPUTER. YOU WERE BURNED ";BR 
PRINT "TIMES. FINAL TRAPPING SCORE: '";PI(TU) 
GOTO 2330 
[=] 
PRINT "BEST TRAPPER..... "s1$(1) 

280 PRINT “TOTAL POINTS="";PI(1) 


PRINT "FOLLOWING '";I1$(1) 

FOR IJ=2 TO N:PRINT I$(T) 

PRINT " WITH A SCORE OF: "; 

PRINT PI(T) 

FOR TI=1 TO 1000:NEXT TI,I: PRINT 

PRINT "END OF PROGRAM RUN. . 

FOR I=1 TO 100:SOUND S1,3:SOUND ((S1-50)+ 
(I*10)),3 

NEXT: PRINT 

PRINT "UNLESS ALL WANT TO PLAY AGAIN???" 


PRINT "IF SO, ENTER <RUN> (THE <F1> KEY)." 


2390 PRINT:FOR TlI=1 TO 1500:NEXT 

2400 PRINT "END" 

2410 END 

3300 REM player numbers/names 

3310 PRINT "ENTER THE NUMBER OF PLAYERS:' 

3320 INPUT N 

3330 IF N<=0 OR N>ell THEN 3310 

3340 PRINT "NOW ENTER THE "sNs"' PLAYERS'" 

3350 PRINT "FIRST NAMES" 

3360 FOR Isl TON 

3370 INPUT I$(1):NEXT 

3380 PRINT 

3390 PRINT "CURRENT PLAYER'S NAME WILL BE" 

3400 PRINT "PRINTED AT THE BOTTOM OF" 

3410 PRINT "GAME BOARD." 

3420 FOR Ti=1 TO 1200:NEXT 

3430 CLS 

3440 RETURN 

3450 REM player 

3460 DEF SEG=&HB800:MG=1920:MF=MG 

3470 FOR I=1 TO LEN(I$(TU)) 

3480 POKE MG,ASC(MID$(I:$(TU) ,I,1)):POKE MG+1,142: 
MG=MG+2 

3485 NEXT: POKE MG,32:FOR H=1 TO 500:NEXT H 

3490 MG=MF:FOR I= 1 TO LEN(CI$(TU)):POKE MG+1,14 
>MG=MG+2:NEXT I:POKF MG,32:RETURN 

3500 REM instructions 

3510 CLS:COLOR 2,0:PRINT "UP TO 10 PLAYERS CAN TRY" 

3520 PRINT "TO OUTWIT THE COMPUTER AND 

3530 PRINT "MANEUVER IT'S PIECE INTO A SITUATION" 

3540 PRINT "WHERE IT WILL BECOME TRAPPED." 

3550 PRINT "THE COMPUTER'S PIECE WILL BE A" 

3560 PRINT "BLOCK LIKE THIS: '::COLOR 12,0:PRINT 
CHR$( 220); :COLOR 2,0:PRINT " YOURS" 

3570 PRINT "WILL LOOK LIKE THIS: ';:COLOR 14,0: 
PRINT CHR$(223)3;:COLOR 2,0 

3580 PRINT "THE COMPUTER WILL MOVE" 

3590 PRINT "ITS PIECE ALL AROUND THE GAME" 

3600 PRINT "BOARD, CHANGING DIRECTION WHEN IT" 

3610 PRINT "SENSES AN OBSTACLE. YOU WILL" 

3620 PRINT "FOLLOW THE COMPUTER'S PIECE OR" 

3630 PRINT "MANEUVER IT TO A SECTION" 

3640 PRINT "OF THE GAME BOARD WHERE IT WILL BE" 

3650 PRINT:PRINT "PRESS ENTER TO CONTINUE"; : INPUT 
W$:CLS 

3660 PRINT "TRAPPED, MEANING THAT IT CAN ONLY MOVE" 

3670 PRINT “LEFT AND RIGHT. THE COMPUTER'S PIECE" 
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3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
5860 
3870 
3880 
3890 
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PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


"WILL CONTAIN A 'CHARGE'. IF YOU" 
"SIMULTANEOUSLY LAND ON THE SAME SPOT" 
"YOU'LL GET 'BURNED’. " 

"STX BURNS AND YOU'RE" 

"OUT OF THE GAME. YOU WILL MOVE" 
"YOUR PIECE USING ALL FOUR ARROW" 
"KEYS. WHEN YOU MOVE, THE COMPUTER" 
"WILL BLANK IT'S PIECE. YOU" 

"WILL BE ALLOWED ONLY 10 CON-" 
"SECUTIVE MOVES AT ONE TIME." 

"ANY TIME YOU WISH TO MOVE YOUR" 
"PTECE, HOLD DOWN ANY ARROW KEY" 
"AND PRESS THE <SPACE BAR>." 

INPUT "PRESS ENTER TO CONTINUE" ,W$ 


CLS:PRINT "POINTS WILL BE DETERMINED BY HOW" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


"MANY MOVES IT TAKES THE USER" 

"TO TRAP THE COMPUTER'S PIECE." 
"REMEMBER, TO TRAP THE COMPUTER'S" 
"PIECE, ONLY ALLOW iT TO MOVE" 
"LEFT AND RIGHT." 

INPUT "PRESS ENTER TO START" ,W$ 


CLS : RETURN 


Rainy Daze for the IBM PC 


REM program title: RAINY DAZE 


V$=RIGHT$(TIME$,2): ‘use PC clock to seed 


random number generator 
V=VAL(V$) 

RANDOMIZE V 

CLS:WIDTH 40:KEY OFF 


INPUT 
INPUT 
PRINT 


IF P>= 


INPUT 


"INSTRUCTIONS"; A$ 
"PLAYERS";P:IF P=0 THEN 40 
"THE"; P; "PLAYERS 'INITIALS:" 
11 THEN 20 ELSE FOR I=1 TO P 
N$(I) :NEXT 


IF A$<>"Y" AND A$<>"YES" THEN 340 
REM instructions 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
CLS 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
T=] 


"THIS PROGRAM IS DESIGNED TO" 
"HELP YOU THROUGH YOUR WORST" 
"DAYS, BY MAKING THEM WORSE! !" 
"ACTUALLY, THIS PROGRAM WILL" 
"TEST YOUR ABILITY TO FOLLOW" 
"NUMBERS, SOMETIMES IN SEQUENCE." 
"THE NUMERALS 1 THROUGH 660 WILL" 
"RACE ACROSS AND FILL THE VIDEO." 
"WHEN A NUMERAL APPEARS THAT IS" 
"NOT SUPPOSED TO BE THERE, HOLD" 
"THE <CTRL> KEY FOR A SHORT" 
"TIME UNTIL THAT NUMERAL IS" 
"BLOCKED OUT." 


"ENTER"; X$ 


"POINTS WILL BE GIVEN ON THE BASIS" 
"OF HOW MANY OUT-OF-SEQUENCE NUMERALS" 


"YOU HAVE DETECTED AT THE END OF" 
"THE COUNT, 660." 


"REMEMBER TO KEEP GOOD EYE CONTACT " 


"WITH THE SCREEN...":PRINT 


IF P=] THEN 390 
PRINT N$(1I);", YOU WILL NOW PLAY:" 


INPUT 


"PRESS ENTER, PLEASE:",X$ 


GOTO 410 
PRINT "WHEN READY, ";N$(P);", PRESS" 
INPUT "THE ENTER KEY:",X$ 


CLS :N=0:N1=0:TT=500: DEF SEG=&H40:POKE &H17,0 


AR=1:AC=1:AB=AC:M=30: L=2:G=0 
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DEF SEG=&H40:K=PEEK(&H17):GOTO 550 
LOCATE AR,AC:PRINT N; 

FOR T=1 TO TTI+TT 

NEXT: AC=AC+5 

IF AC>=M THEN 490 

GOTO 430 

AR=L: AC=AB: L=L+1:TT=TT-15:G=0 

IF L>=24 THEN 520 

GOTO 430 

FOR T=1 TO 1000:NEXT 

CLS 

GOTO 420 

REM change or leave 

IF K=4 THEN NJ=1:GOTO 690 

N=N+1 

N1l=N1+1:IF Nil<=2 THEN 610 
J=INT(RND*2):IF G=1 THEN J=0:N=N1 
IF J=1 THEN N=N+1:G=1 

IF K=O AND ABS(N-N1)<>0 THEN Y=Y¥+1 
IF NJ=1 THEN NJ=0:GOTO 640 

IF N1>=661 THEN 800 ELSE GOTO 440 
N1=N1+1 

IF AC-5<=0 THEN LOCATE AR-1,40-AC-5: PRINT 
STRING$(5,143);:GOTO 660 

LOCATE AR,AC-5:PRINT STRING$(5,143); 
REM pause before cont. 

FOR T=1 TO 200:NEXT:K=0 

GOTO 440 

IF ABS(N=N1)=0 THEN 710 

Y=Y-1:GOTO 720 

Y=Y+1 

DEF SEG=&HB800: Al=PEEK( (AR-1)*80+2* ( AC-7) ) 
A2=PEEK( (AR-1)*80+2*( AC-—9) ) 

IF Al=143 AND A2=143 THEN 760 


Y GOTO A20 


CLS : Y=Y+2 
PRINT "QUIT HOLDING DOWN THE <CTRL>" 
PRINT "KEY!! LET GO, YOU MANIAC!" 


FOR T=1 TO 1200:NEXT:CLS:GOTO 620 
REM player advance 
YY(1I)=¥:Y=0:CLS 

T=I+1 

IF I>P THEN N1=N1-1:GOTO 850 
GOTO 360 

REM final 


PRINT “PLAYERS AND THEIR POINTS" 
PRINT "ARE AS FOLLOWS:" 


880 
890 
900 
910 
920 
930 
940 
950 
960 


FOR I=1 TO P 
PRINT N$(1I);" IDENTIFIED "; 


IF YY(I1)=0 THEN PRINT "ALL NUMERALS."':GOTO 930 


IF YY(I)<O THEN YY(1I)=-YY(I) 
PRINT N1—YY(1); "NUMERALS." 
NEXT 

PRINT 

PRINT "END OF PROGRAM." 

END 
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General Store for the IBM PC 


REM program title:general store 


CLEAR 


500 


V$=RIGHT$(TIME$,2): ‘use PC clock to seed 
random number generator 

V=VAL(V$) 

RANDOMIZE V 

DEF SEG=&HB800:WIDTH 40:CLS:PRINT TAB(10); 


PRINT 


"GENERAL STORE":R$="NEXT " 


DIM N$(15) ,1$(31),1(31) 
DIM L(31),PR(31),TP(15):REM instructions 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
A KEY 


190 GOSUB 


200 
210 
220 
230 
240 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"YOUR INSTRUCTIONS ARE SIMPLE AND" 
"STRATGHT-FORWARD: I WILL GIVE" 

"YOU A LIST OF DIFFERENT ITEMS" 

"AND THEIR PRICES. YOU IN TURN" 

"WILL ENTER THE TOTAL PRICE OF ALL THE" 
"ITEMS. THAT IS, IF T SAY $2.50," 
"MILK, AND THEN SAY $0.80 BREAD" 

"YOU MUST THEN ENTER THE TOTAL" 

"OF $2.50 + $0.80 ($3.30). ALL" 

"OF YOUR ENTRIES WILL BE THROUGH" 

"THE COMPUTER'S 'INKEY$' FUNCTION." 
"DON'T PRESS <ENTER> AND DON'T ENTER" 
"THE DOLLAR SIGN.":PRINT:PRINT "STRIKE 
TO CONTINUE" 

3000:CLS: G$="##, ###" 

"ENTER ONLY THE NUMBERS AND THE" 
"DECIMALS. AFTER 10 ITEMS WE WILL" 
"TAKE A SHORT BREAK, THEN I WILL" 

"GIVE YOU 10 MORE. WE WILL STOP" 

"ONLY AFTER 30 ITEMS HAVE BEEN" 
"TOTALLED. YOUR POINTS WILL BE" 
"DETERMINED BY THE ACCURACY OF YOUR" 
"TOTAL, TF CORRECT , THE TOTAL WILL BE" 
"YOUR POINTS. IF INCORRECT, ALL ENTRIES" 
"MISSED WILL BE SUBTRACTED FROM YOUR TO-" 
"TAL. YOU WILL HAVE A TIME LIMIT IN" 
"WHICH TO ENTER THE TOTAL, SO LAY" 
"DOWN THE PENCIL AND THE CALCULATOR!" 


REM begin 


PRINT 
GOSUB 
INPUT 


"STRIKE A KEY TO BEGIN" 
3000:CLS 
"HOW MANY PLAYERS (1-10)";P 


IF P<l OR P>10 THEN 370 


PRINT 


"ENTER";P;"PLAYERS' FIRST NAMES:" 


REM names 


AP=220:FOR I=] TO P 

INPUT N$(1):NCI)=1:NEXT:N=1 : AR=3: AC=30 
AQ=AP+80:IF P=l1 THEN Y=1:N=2:GOTO 470 
PRINT "I WILL SELECT EACH PLAYER IN" 
PRINT “A RANDOM FASHION. THERE WILL" 
PRINT "BE NO SET ORDER OF PLAYERS." 
GOSUB 2800:PRINT "player 

IF EE=1 THEN 1530 = = ‘'final 
Q$=N$(Y): TA=0: JI=0 

PRINT Q$;" WILL NOW PLAY:" 

PRINT "PRESS THE ENTER KEY TO BEGIN": 
INPUT X$:PRINT 

CLS:PRINT "HOW FAST IS YOUR ADDITION," 
PRINT Q$;'222" 

REM read all items/prices 

FOR I=] TO 30:READ I$(1I):L(1)=I:NEXT 
FOR I=1 TO 30:READ PR(I):NEXT:GOTO 2500 
D=I-1:DD=(D/3) :U=1:D$="$##. ##"  FSH"$" 
REM select items randomly 

IF U>DD THEN PRINT:PRINT:GOTO 1100 
X=INT(RND*30+41 ) 

IF L(X)=0 THEN 600 'used 

T=X:PR=PR(T) :T$=I$(T) 

IF U=1 THEN YU=PR 

TA=TA+PR ‘total amount/current item 
TA$=STR$(TA) ‘total to string 
IF U=1 THEN GOSUB 2900 

IF U=l1 THEN CLS ELSE IF U>1 THEN 670 
PRINT TAB(1)"PRICE'"; TAB( 12)" ITEMS": 
PRINT TAB(30)"PRICES": 

PRINT TAB(1) USING D$;PR; 

PRINT TAB(12);T$ 

IF U<=1 THEN 710 

RR=1 ‘continue print/entries 
L(X)=0:U=U+1 : KK=0: NE=1 

IF RR<>1 THEN 580 

LOCATE AR,AC:PRINT F$ 

X$=INKEY$:IF KK<=15 AND X$<>'"" THEN 1040 
IF X$="." THEN 880 


IF X$=""" THEN 760 

GOTO 800 

KK=KK+1 "time expired? 

IF KK>=400 THEN W$=""":GOTO 1000 
POKE AP,220:GOTO 730 

REM entry 

POKE AP,ASC(X$): TY(NE)=VAL(X$) 
AP=AP+2 ‘poke location 
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830 
840 
850 
860 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1005 
1008 
1010 
1020 
1030 
1040 
1050 
1060 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
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NE=NE+1 "number entry 

IF NE=LEN(TA$) THEN 860 

GOTO 730 

GOTO 910 "all entries in 

REM decimal 

POKE AP,ASC(X$) 

TY(NE)=1000:GOTO 820 

REM compile entries 

V=NE-1:IF V=9 THEN V=10 

FOR I=I1 TO V 

IF TY(1I)=1000 THEN 970 
W$=W$+STRS$C(TY(T) ) 

TY(1)=0:NEXT:GOTO 990 

WoaWge" 

GOTO 960 

W=VAL(W$) :W$=STR$(W) 

IF W$<>TA$ THEN PI=PI+PR:JI=JI+1 

IF U=3 AND JI<>0 THEN PI=PI+PR:JI=JI+1 
ITF PEEKCAP)=220 THEN POKE AP, 32 

POKE AP+2,32:W$="''"'s AR=AR+1 

AP=AQ: AQ=AQ+80 

GOTO 590 "another item 

REM slow down a little 

POKE AP, 32 

GOTO 730 

REM points/player advance 

IF PI<>0O THEN 1200 

FOR I=1 TO LENCTA$) 

IF MID$(TA$,I,1)="."' THEN 1150 
K$=K$+MID$(TA$,1I,1) 

NEXT 

K=VAL(K$) 

GOSUB 1430 

TPCY )=TP(Y)+K 

GOTO 1320 

REM missed items 

TA$=STR$(PI):FOR I=1 TO LEN(TA$) 

IF MID$(TA$,1,1)="." THEN 1240 
K$=K$+MID$(TA$,I,1) 

NEXT: K=VAL(K$):GOSUB 1430 

TP(Y )=TP(Y)-K 

PRINT "YOU HAVE MISSED TOTALS ON ";JI 
PRINT "ITEMS, ';Q$;". THESE ITEMS CAME" 
PRINT "TO A TOTAL OF $";:TA$;". YOU ARE" 
PRINT "MINUS THAT AMOUNT. YOUR SCORE" 
PRINT "IS NOW ";USING G$;TP(Y) 

GOTO 1350 


1320 PRINT "YOU HAVE SUCCESSFULLY ENTERED" 
1330 PRINT "ALL TOTALS, ';Q$;''. YOUR POINTS" 
1340 PRINT "ARE NOW: ";USING G$;TP(Y) 

1350 K=0:JI=0:PI=0:TA$=""sK$="""' 

1360 U=1:D1=D1+10:IF Dl=20 THEN R$="LAST" 
1370 AP=220: AQ=AP+80: AR=3:AC=30: RR=0: PRINT 
1380 IF D1i>=30 THEN 1500 

1390 PRINT "TAKE A SHORT BREAK, THEN WE'LL" 
1400 PRINT "ATTEMPT THE ";R$;'' SET OF ITEMS." 
1410 FOR I=1 TO 5000:NEXT: PRINT 

1420 GOTO 580 

1430 REM amount times 10 

1440 IF MID$(TA$,LEN(TA$)~-1,1)="." THEN 1480 
1450 IF LEN(TA$)=2 OR LENCTA$)=3 THEN 1470 
1460 RETURN 

1470 K=K*100:GOTO 1460 

1480 K=K*10 

1490 GOTO 1460 

1500 REM another player 

1510 PRINT: PRINT:RESTORE 

1520 D1=0:R$="NEXT":GOTO 460 

1530 REM high point 

1535 IF P=l1 THEN TP=TP(1):GOTO 1720 

1540 MM=0:VV=1 :N=N--1 

1550 IF TP(VV)>=TP(VV+1) THEN 1590 

1560 TP=TP(VV) : TP(VV)=TP(VV+1) 

1570 TP(VV+1)=TP:N$=N$(VV) 

1580 N$CVV)=N$(VV+1) :N$CVV+1)=N$ :MM=1 

1590 IF VV+1>=N THEN 1600 ‘final 

1595 VV=VV+1:GOTO 1550 

1600 REM mm=1-~-not in order 

1610 IF MM=1 THEN 1540 

1650 REM points compiled(final) 

1700 REM print results 

1710 PRINT "ALL HAVE PLAYED..." 

1720 PRINT “STRIKE A KEY FOR RESULTS ON SCORE" 
1730 GOSUB 3000 

1740 CLS:I=1 

1750 REM single player 

1760 IF P=1 THEN 1850 

1770 PRINT "THE TOP WINNER: ';N$(T) 

1780 PRINT "WITH A FINAL POINT SCORE OF: "; 
1790 PRINT USING G$;TP(TI) 

1800 PRINT "OTHER PLAYERS AND SCORES:" 

1810 FOR X=I+1 TO P 

1820 PRINT N$(X);" HAD: ";USING G$;TP(X) 
1830 NEXT 
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1840 
1850 
1860 
1870 
1880 
1890 
1900 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2510 
2620 
2800 
2810 
2820 
2830 
2840 
2850 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
3000 
3010 
3020 
3030 
4000 
4010 
4020 
4030 
4040 
4050 
4000 
4070 
4080 
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GOTO 1880 

PRINT Q$;"" YOUR TOTAL (FINAL) POINTS" 
PRINT “FOR GENERAL STORE: "; 
PRINT USING G$;TP 

PRINT 

PRINT "END OF PROGRAM RUN." 
END 

REM inflation/deflation 

FOR I=1 TO 30 
DE=INT(RND*10+1) : DF=CSNG(DE/10) 
DG=INT(RND*2) 

IF DG=2 THEN 2590 

REM inflation 

PR(I)=PR(1)+DF 

NEXT 

GOTO 570 

REM deflation 

PR(I)=PR(1I)-DF 

IF PR(I)<=0 THEN 2560 

GOTO 2570 

REM random player 

IF N>P THEN EE=1:RETURN 
Q=INT(RND*P+1) 

IF N(Q)=0 THEN 2820 

Y=Q:N(Q)=0 

N=N+1:RETURN 

REM extra message 

PRINT 

PRINT "ADD ALL ITEMS TOGETHER" 
PRINT "BEFORE INPUTTING AMOUNT." 
IF D1l>=10 THEN 2970 

FOR TL=1 TO 2800:NEXT 
CLS : RETURN 

PRINT "START WITH PREVIOUS TOTAL." 
GOTO 2950 

REM INKKY$ 

X$=INKEY$ 

IF X$=""THEN 3010 

RETURN 

REM data/price--item combined 
DATA MILK, BREAD, MEAT 

DATA MEAT, MEAT, FISH 

DATA CANDY, CANDY, CANDY 

DATA VEGETABLES , VEGETABLES 
DATA POULTRY , POULTRY 

DATA LETTUCE, ONION 

DATA SPINACH ,CIGARETTES 

DATA CIGARS , BACON 


4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 


DATA TABLETS( PAPER) , PENS 
DATA BATTERIES , BATTERIES 
DATA FURNITURE POLISH 
DATA CARPET CLEANER 

DATA HAND SOAP ,HAND SOAP 
DATA CRACKERS, MEATS 
DATA SODAS (CASE) 

REM prices of items 


DATA 2.30,0.89,1.98,3.35,5.50,3.65 
DATA 0.35,2. 05,0. 54,0.39,0.45,3.44 
DATA 1. 99,0. 59,1.01,0.79,7.05,5.74 
DATA 4.66,1.23,2.44,2.66,0.98,1.97 
DATA 2.41,0.99,0.99,1.32,8.99,4.32 


399 


Rain of Terror for the IBM PC 


REM program title: rain of terror 

CLEAR 200 

V$=RIGHT$(TIME$,2): ‘use PC clock to seed 
random number generator 

V=VAL(V$) 

RANDOMIZE V 

PRINT:WIDTH 40:KEY OFF:COLOR 14,3,7 :CLS 
DEF SEG=&HB800 

PRINT TAB(10) '**# RAIN OF TERROR ***':GOSUB 810 
PRINT: X$=STRING$ (40, 32) 

INPUT "INSTRUCTIONS (Y/N)"3A$ 

IF A$="N" OR A$="NO" THEN 190 

PRINT "YOU WILL BE BOMBARDED FROM THE" 
PRINT "SKY BY FALLING BOMBS. ALL YOU" 
PRINT "NEED TO DO TO STAY ALIVE IS To" 
PRINT "USE THE <LEFT> AND <RIGHT ARROW>" 
PRINT "KEYS TO KEEP OUT OF THE BOMBS‘ POINTS" 
PRINT "OF CONTACT. IT SOUNDS VERY SIMPLE" 
PRINT "BUT YOU MUST BE FAST!" 

PRINT 

PRINT "STRIKE A KEY TO BEGIN" 
AA$=INKEY$:IF AA$="""THEN 180 

CLS 

REM border/messages 

LOCATE 1,1:PRINT STRING$(40, 219) 
I$=CHR$(220):GOSUB 510 

R=0:REM points 

P=160: PP=P+84 : U=P+1440: UV=U : UW=U+78 : RR=0 
POKE P,43:POKE U,32:P=P+4 

U=U+4: POKE(U-4) ,32:POKE U,220 

IF P>=PP THEN POKE U,32:GOTO 240 

SOUND 440,1:PX=INTCRND* 794160) 

LOCATE 23,1:PRINT P.PX 

IF ABS(P~PX)<=8 THEN 320 

GOTO 250 

REM a drop 

PL=P 

IF PEEK(P)=220 THEN 550 

POKE P,42:P=P+80:FOR I=1 TO 20:NEXT 

POKE( P-80) , 32 

IF P>PL+1440 THEN 410 

FOR H=1 TO 10:AA$=INKEY$:IF LEN(AA$)=2 THEN 
A$=MID$(AA$,2,1):K=ASCCA$) :GOTO 

ELSE NEXT 

IF K=75 THEN K=0:GOTO 420 


IF K=77 THEN K=0:GOTO 470 

R=R+25: RR=RR+25:LOCATE 22,18:PRINT RR: LOCATE 
23,16:PRINT R; 

IF P=U THEN 550 ELSE GOTO 340 

LOCATE 21,1:PRINT X$:P=PL:RR=0:GOTO 250 


) POKE U,32:POKE UX, 32 


U=U-4 

IF U<=UV THEN 480 

POKE U,220 
UX=U:U=PL+1440:GOTO 340 


POKE U,32:POKE UX, 32 
U=U+4 

IF U>=UW THEN U=UW 
GOTO 450 

REM messages 


LOCATE 22,1:PRINT "POINTS BEFORE HIT "; 
LOCATE 23,1:PRINT "TOTAL POINTS "; 
RETURN 

REM bombed 

R=R-RR: LOCATE 23,16:PRINT R:LOCATE 21,1:PRINT X$ 
IF U<=1604 THEN U=U+6 

IF U>=1676 THEN U=U-8 

U1l=U-80: U2=U1-2: U3=U14+2:U4=1 

POKE U,42 

SOUND 1000,3 

POKE U1,42:POKE U2,42 

SOUND 1040,3 

POKE U3, 42 

SOUND 1080,3 

FOR T=1 TO 200:NEXT:U4=U44+2 

POKE U,32:FOR V=0 TO 18 STEP 2:POKE(U2+V) , 32 
> NEXT 

IF ABS(U-U1)>=328 THEN 670 

U1=U1-80: U2=U1-U4: U3=U1+U4:GOTO 600 
REM gone 

FOR T=1 TO 1000:NEXT 

CLS 

PRINT “YOU HAVE BEEN DESTROYED BY ONE" 
PRINT "OF THE FALLING BOMBS. YOUR" 
PRINT "TOTAL POINTS ACCRUED BEFORE” 
PRINT "BEING DESTROYED WERE:"'s;R 

PRINT: FOR T=] TO 1000:NEXT 

A$="END OF RAIN OF TERROR." 

FOR I=1 TO LEN(A$) 

PRINT MID$(A$,1I,1);:SOUND 220,1:SOUND 32767,1 
NEXT 

END 
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810 PLAY "MB 02 L12 FCF L4 A- F L12 A- F A- L4 
03 C 02 A- L12 03 C O02 A- O3 CL 4 E-O2 E-~ L12 
A- E- A~ O3L2 Cc" 

820 RETURN 
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Appendix B 
Program Listings for the Apple II 


The following listings have been created especially for use on the 
Apple II, Apple /7e, and Apple II plus. 
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General Store for the Apple I! 


i@ REM PROGRAM TITLE:GENERAL STORE 
2@ HOME : HTAR 1a 
3@ PRINT "GENERAL STORE":R$ = "NEXT" 
4@ DIM NS(15),1$(31),1¢31) 
SQ DIM L(3i),PR(31),TP(15): REM 
INSTRUCTIONS 
6@ PRINT "YGUR INSTRUCTIONS ARE SIMPLE 
AND" 
7@ PRINT "STRAIGHT-FORWARD: I WILL GIVE” 
BG PRINT "YOU A LIST GF DIFFERENT ITEMS" 
92 PRINT "AND THEIR PRICES. YOU IN TURN" 
122 PRINT "WILL ENTER THE TOTAL PRICE OF 
ALL THE" 
11@ PRINT "ITEMS. THAT IS, IF I SAY #2. 5a," 
12@ PRINT "MILK, AND THEN SAY #2.82 BREAD" 
i3@ PRINT "YOU MUST THEN ENTER THE TOTAL” 
14% PRINT "GF $2.50 + $2.80 ($3.32). ALL" 
i5@ PRINT "OF YOUR ENTRIES SHOULD BE 
ENTERED" 
16@ PRINT "WITHOUT DOLLAR SIGNS--JUST PUT" 
i7a PRINT "IN THE DECIMAL IF THE NUMBER 
H ff" 
18@ PRINT "CENT AMOUNT. ": PRINT : PRINT 
"PRESS RETURN TO CONTINUE:": 
19@ GOSUB 3aaa@: HOME :GH = "¢$" 
21@ PRINT "AFTER TEN ITEMS WE WILL" 
S20 PRINT "TAKE A SHORT BREAK, THEN I WILL” 
230 PRINT "GIVE YOU TEN MORE. WE WILL STOP" 
240 PRINT "ONLY AFTER THIRTY ITEMS HAVE 
REEN” 
25 PRINT "TOTALLED. YOUR POINTS WILL BE” 
26@ PRINT “DETERMINED BY THE ACCURACY OF 
YOUR" 
S7@ PRINT “TOTAL. IF CORRECT, THE ToTaL 
WILL BE" 
28@ PRINT “YOUR POINTS. IF INCORRECT, ALL" 
790 PRINT "MISSED WILL BE SUBTRACTED FROM 
YOUR TG-" 
3aQ PRINT "TAL. YOU WILL HAVE A TIME 
LIMIT IN" 
3i@ PRINT "WHICH TG ENTER THE TOTAL,SO LAY" 
32@ PRINT "DOWN THE PENCIL AND THE 
CALCULATOR!" 
34% REM BEGIN 
35@ PRINT "PRESS ANY KEY TO BEGIN:" 
364 GOSUB 3a@aa: HOME 


INPUT "HOW MANY PLAYERS (1-118) ?"sp 
IF P ¢ 1 OR P > 1@ THEN 37@ 

PRINT "ENTER "383" PLAYERS’ FIRST NAMES: " 
REM NAMES 


AP = 131@: FOR I = 17T0P 


INPUT N@#¢(I) sNC(I) = IT: NEXT 2eN = L:Al 
= S:Ac = Sil 

AQ = AP + 128: IF AG > = 1959 THEN 
AQ = 1094 

IF P = 1 THEN Y = i:N = &: GOTO 478 


PRINT "I WILL SELECT EACH PLAYER IN" 
PRINT "A@ RANDOM FASHION. THERE WILL" 
PRINT "HE NO SET ORDER OF PLAYERS. " 
GOSUB £8wd: PRINT : REM PLAYER 

IF EE = 1 THEN 1535@: REM FINAL 


Q$é = NS(Y) TA = @ JI = a 


PRINT Q$:" WILL NOW PLAY:" 

PRINT "PRESS THE RETURN KEY TO BEGIN": 
INPUT X$: PRINT 

HOME =: PRINT "HOW FAST IS YOUR 
ADDITION, " 

PRINT Q$3"?7?" 

REM READ ALL ITEMS/PRICES 

FOR I = 1 TO 3@: READ I$(IT)sL(I) = I: 


FOR I = 1 TO 3@: READ PR(I): NEXT : 


D= [_ -1:DD = (D / 3)3:U = 1:D% = "G"> 


REM SELECT ITEMS RANDOMLY 
IF U > DD THEN PRINT : PRINT : GOTO 
i1a@ 

= INT ¢ RND (1) * 34 + 1) 

IF L¢(X) = @ THEN 6@@: REM USED 

= X¥:PR = PR(T):T& = I$(T) 

IF U = 1 THEN YU = PR 


TA = TA + PR: REM TOTAL AMOUNT/CURRENT 


ITEM 


TAS = STR (TA): REM TOTAL TO STRING 


IF UW = 1 THEN GOSUEB 291A 
IF U = 1 THEN HOME 

IF U > 1 THEN 672 

HTAB Ii 


: PRINT "PRICES":: HTAR 12: 
PRINT "ITEMS"; 

IF U)> 1 THEN 67a 

HTABR i: PRINT "PRICES":: HTAH 12: 
PRINT "ITEMS": 


405 


HTAR 3@: PRINT "PRICES 
HTAR i: PRINT D#sPR3 
HTAR ies PRINT TS 

IF U ¢ = 1 THEN 71@ 


RR = 1: REM CONTINUE PRINT/ENTRIES 


L¢X) = @:U = U + 1sKK = ENE = 1 
IF RR ¢ >) 1 THEN S382 
VTAB Al: HTAB Ae: PRINT FH 


XS = PEEK ¢( —- 16384) - 1268: IF KK ¢ 
2 AND XS > @ THEN POKE ( —- 16368),@ 


GOTO 1@4@ |! 


IF XS = 46 THEN POKE ( - 16368), a: 


GOTO 88a 

IF XS ¢ = @ THEN 76 

POKE (¢ -— 16368),@: GOTO 8aa 
KK = KK + i: REM TIME EXPIRED? 


IF KK > = £5@ THEN WH = "": GOTO 1@aa 


POKE AP, 174: GOTO 73a 
REM ENTRY 
POKE AP, XS + 12&8:TY(NE) = XS 
AP = AP + i: REM LOCATION 
NE = NE + 1: REM NUMBER ENTRY 
IF NE = LEN (TAS) THEN 86@ 


GOTO 91@: REM ALL ENTRIES IN 
REM DECIMAL 
POKE AP,XS + 128 
TY(NE) = 1@@@: GOTO sea 
REM COMPILE ENTRIES 
V = NE - i: IF V = 9 THEN V = 14 
FOR I= 1 T0V 
IF TY(I) = 1@@@ THEN 97@ 
WS = WS + STR (TY(I)) 
TY(I) = @: NEXT : GOTO 99a 
We = We +," 
GOTO 96a 
W= VAL (WS) WS = STR (W) 


IF WS ¢ > TAS THEN PI = PI + PR:JI = 


JI + 1 
IF U = 3 AND JI ¢ > @ THEN PI 
PR: JI = Ji + i 


PI + 


IF PEEK (AP) = 17@ THEN POKE AP, 164 
POKE AP + £,168@:WS = ""sA1 = Al + 1 


AP = AG:AG = AD + 128: IF AR) 
THEN AQ = 1094 
GOTO S9@: REM ANOTHER ITEM 
REM SLOW DOWN A LITTLE 
POKE AP, 16a 


~—0. 
—_ 


19353 


Kt 


K 


TPCY) 


1 


K 


TPCY) 


K 
U 


AP 


GOTO 73a 
REM POINTS/PLAYER ADVANCE 
IF PI ¢ ) @ THEN 1200 
FOR I = 1 TO LEN (TAS) 
IF MID (TAS, I, 1) 
K$ + MIDS (TAS, I, 1) 


THEN i115 


NEXT 


VAL (K) 
GOSUEB 1434 

TPCY) + K 
GOTO 1324 

REM MISSED ITEMS 
AS STR# (PI): 
IF MID& (TAG, 1,1) 
$ K$ + MIDS (TAS, 1,1) 

NEXT sk VAL (KG): GOSUB 1438 

TPC(Y) - K 

"YOU HAVE MISSED TOTALS ON "3:JI 
"ITEMS, "sO63". THESE ITEMS CAME" 
"TO A TOTAL OF $"3TAG:". YOU ARE” 
PRINT "MINUS THAT AMOUNT. YOUR SCORE” 
PRINT "IS NOW "sGsTPCY) 

GOTO 1354 

PRINT "YOU HAVE SUCCESSFULLY ENTERED" 
PRINT "ALL TOTALS, "3Q@%;". YOUR POINTS" 
PRINT "RARE NOW: "3sGS3TPCY) 

Zi: JI @:Py] @:TAS = ""skKs = 
1:Di Di + i@: IF Di = 2@ THEN R& 
" AasT” 

1351@:AG AP + 128:Al 
3W2RR @:s PRINT 

IF Dil > 3@ THEN 15a@ 
PRINT "TAKE A SHORT BREAK, THEN WE’?LL" 
PRINT "ATTEMPT THE "sR#3" SET OF ITEMS, " 
FOR I = 1 TO Saga: NEXT : PRINT 

GOTO 58a 

REM AMOUNT TIMES 1@ 

IF MIDS (TAS, LEN (TAS) 
THEN 148@ 

IF LEN (TAS) = & 
THEN 1474 

RETURN 

K * 1@@: GOTO 146 

K * 1 

GOTO 1464 

REM ANOTHER PLAYER 
PRINT : PRINT : RESTORE 


wand 
—— 


FOR I 


tb 1} 
a 


i TO LEN (TA) 
THEN 1241 


— 
—_ 


PRINT 
PRINT 
PRINT 


Dot 


— 
~— 


S2:Ae 


pom 


-~i,1) =", 


OR LEN (TAS) 


It 
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REM NOT IN ORDER 

IF MM = 1 THEN 1548 

REM POINTS COMPILED (FINAL) 
REM PRINT RESULTS 


PRINT "ALL HAVE PLAYED..." 
PRINT "PRESS RETURN FOR RESULTS ON 
SCORE" 

GOSUB 3aae@ 

HOME :I = 

REM SINGLE PLAYER 

IF P = 1 THEN 185@ 

PRINT "THE TOP WINNER: ":N#(T) 

PRINT "WITH A FINAL POINT SCORE OF: " 
PRINT G#;TP(I) 

PRINT "OTHER PLAYERS AND SCORES:" 

FOR X= 1+ 1 TOP 

PRINT N&(X)2" HAD: "sG%:TPCX) 

NEXT 

GOTO 1880 


PRINT Q$:" YOUR TOTAL (FINAL) POINTS" 
PRINT "FOR GENERAL STORE ARE:": 
PRINT G$:TP 


PRINT 

PRINT "END OF PROGRAM RUN" 
END 

REM INFLATION/DEFLATION 
FOR I = i TO 3a 
DE = INT ¢ RND (1) #* 18 + 1):DF = 
CSNG(DE / 1@) 
DG = INT ¢ RND (1) *® & + 1) 
IF DG = 2¢ THEN 259 

REM INFLATION 

PR(T) = PR(I) + DF 

NEXT 

GOTO 37@ 

GOTO S7e@ 

REM DEFLATION 

PR(I) = PR(I) -— DF 


Di = @sRS = "NEXT": GOTO 464 
REM HIGH POINT 
IF P = 1 THEN TP = TP(1): GOTO i7vea 
MM = @:VV = 1:N = N - 1 
IF TPCVV) >) = TPC(VV + 1) THEN 1598 
TP = TPCVV) STPCVV) = TPCVV + 1) 
TPCVV + 1) = TPN = N&(VV) 
NS¢VV) = NS(VV +1) ENSCVY +1) = NSEMM = | 
IF VV + 1 > = N THEN 16@@: REM FINAL 
VV = VV + i: GOTO 155¢@ 
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IF PR(I) ¢ = @ THEN 256@ 
GOTO £572 
REM RANDOM PLAYER 


IF N 


IF N 


Y = Q:N(Q) 


= N 
REM 


) P THEN EE = 1: 
INT ¢ RND (1) * PB 
(Q) = @ THEN 82a 


RETURN 
+ 1) 


= 
+ 1: RETURN 
EXTRA MESSAGE 


PRINT 


PRINT 
PRINT 


IF D 


FOR Tl = 


HOME 


PRINT 


GOTO 
REM 


XS = 
TF x5 ¢ = 


POKE 
REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"ADD ALL ITEMS TOGETHER" 
"REFORE INPUTTING AMOUNT. " 
1) = 1M THEN 2972 

1 TO 28a: NEXT 

: RETURN 

"START WITH PREVIOUS TOTAL. " 
e950 

INPUT 

PEEK ( ~ 16384) - 126 

Q@ THEN 3010 

( — 16368),@: RETURN 

DATA/PRICE--ITEM COMBINED 

MILK, BREAD, MEAT 
MEAT, MEAT, FISH 
CANDY, CANDY, CANDY 
VEGETABLES, VEGETABLES 
POULTRY, POULTRY 
LETTUCE, ONIONS 
SPINACH, CIGARETTES 
CIGARS, RACON 

TABLETS (PAPER), PENS 
BATTERIES, BATTERIES 
FURNITURE POLISH 
CARPET CLEANER 

HAND SOAP, HAND SOAP 
CRACKERS, MEATS 
SODAS (CASE) 

PRICES OF ITEMS 
#.35,1.09,1.98,3.35,5.55, 3,65 
1.35, 2.15, 1.04, 1.39, 1.45, 3.44 
1.99,1.09,1.11,1.29, 7.15, 5.74 
4,66, 1.23, 2.44, 2.66,.98, 1.97 

#.41,1.99, 1.99, 1.32, 9. 99,4, 32 
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Hold Time for the Apple Il 


i@ PRINT CHR 


(4) :"BLOADSOUND" 


20 F = 20a 

195 HOME 

125 HTAE 15: PRINT "HOLD TIME" 

13@ PRINT : INPUT "INSTRUCTIONS? "32% 

135 IF Z# = "N" OR Z# = "NO" THEN HOME : 
GOTO 275 

14@ PRINT : HOME 

145 PRINT "OLD TIME...A MATTER OF HIGH OR" 

15@ PRINT “LOW POINT TOTALS. THE COMPUTER’ S" 

155 PRINT "CRAFT WILL BLIP ALL AROUND YOUR" 

16@ PRINT "VIDEO. DOWN THE LEFT AND RIGHT" 

165 PRINT "SIDES WILL BE ASTERISKS. THESE" 

17@ PRINT “ARE YOUR LASERS. AT THE INSTANT" 

175 PRINT "YOU THINK THE CRAFT 1S IN LINE" 

182 PRINT "WITH THESE, HOLD THE SPACE BAR. 
YOUR" 

185 PRINT "LASER BLASTS WILL START MOVING" 

192 PRINT "TOWARD THE CENTER. THE COMPUTER" 

195 PRINT "CRAFT WILL ALSO CONTINUE TO 
MOVE. " 

2a@ PRINT : INPUT "PRESS RETURN TO 
CONTINUE: "57% 

205 PRINT "YOU CAN *HOLD? THE COMPUTER? S” 

210 PRINT "CRAFT FROM MOVING FOR A SHORT 
TIME, 

#15 PRINT "ROUGHLY 2@ SECONDS, BY HOLDING THE” 

22@ PRINT "(P) AND (REPT) KEYS. POINTS 
WILL RANGE" 

225 PRINT "15@@ TO 4@@, DEPENDING ON 
WHERE ON" 

#23@ PRINT "THE SCREEN (TOP OR BOTTOM) YOU 
DESTROY" 

235 PRINT "THE CRAFT. TIME LIMIT FOR THE” 

242 PRINT "ENTIRE RUN WILL BE JUST AEOQUT" 

245 PRINT "FIVE MINUTES. THIS WILL BE NOTED" 

250 PRINT "AT THE LOWER RIGHT OF YOUR 
SCREEN. " 

255 PRINT "COUNT STARTS AT 3a." 

#60 PRINT 

275 PRINT : INPUT "PRESS RETURN TO BEGIN " 
;X$: HOME 

295 C# = "X" 

305 O$ = "#":MR = B8:MC = 16:Mi = i:Mz = 1 

3iQ G = @:Pi = iG: FOR X = i TO 4a: VTAB i: 
HTAR X: PRINT Q&3: VTAB 16: HTAB X: 
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PRINT Q$:: NEXT 

VTAR 2: HTAR 36: PRINT "2@":: FOR XR = 
2 TO 15:xXC = 1 

VTAB XR: HTAB XC: PRINT O%:: HTAR XC + 
39: PRINT Q$; 

POKE 769,93: POKE 77@,5: POKE 768,1: 
CALL 768 

GOTO saa 

IF Mi ¢ ) 1 AND MZ¢ »>1 THEN GOSUE 355 


FOR X = 1 TO 4@: VTAR 1: HTAB Xs: PRINT 
CHRS (32)3:s VTAR 16: HTAB X: PRINT CHRS 
(S32) 3 
NEXT 


FOR XR = 2 TO 15:XC = 1 

VTAB XR: HTABR XC: PRINT CHR (32)3: 
HTABR 4@: PRINT CHR (32) 35 

GOSUB 355: NEXT : GOSUB 355: GOTO 31a 
VTAB 16: HTAB 35: PRINT ABS ( INT (TT 
/ 6@) - 38); 

VTAB Mis HTAB Mes PRINT " "3 


IF MR ( = 2 OR MR) = 15 THEN MR = 7 
VTAB MR: HTAB MC: PRINT C$s:TT =TT + 1 
IF TT) = 18@@ THEN 93a 


Mi = MRsMe = MCsW = PEEK (- 16384) -128 
IF W = 8@ AND G (¢ = 2@ THEN G=G+., 
4: GOSUE 77%: RETURN 

XX = INT ¢ RND (1) * 4 + 1) REM 
CRAFT MOVE 
ON XX GOTO 38a, 39a, 40a, 414 
REM LEFT MOVE 

MC = MC —- INT CRND (1) % 5S + 1):!G0TO 42a 
REM RIGHT MOVE 

McC = mC + INT ¢ RND (1) *54+1):G0TO 428 
REM UP MOVE 

MR = PMR - 1: GOTO 426 
REM DOWN MOVE 

MR = MR + 1: IF PEEK (1153) = Se THEN 
GOSUER 7@@: REM LOCATION OF MESSAGE 
FROM LINES 745-762 
IF PEEK (1186) = 32 THEN GOSUER 7a: 
REM LOCATION OF MESSAGE FROM LINE 315 
IF PEEK (1835) = 3¢ THEN GOSUE 7a@a@: 
REM LOCATION OF MESSAGE FROM LINE 7@S 
IF PEEK (1859) = 32 THEN GOSUE 7ila: 
REM LOCATION OF MESSAGE FROM LINE 715 
IF MC ¢ = 3 THEN MC = S8:MR = MR - 1 
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CAeon CA OCH Cn 
O3 GJ OJ fo fy 
nam Aus 


IF MR (¢ = 2 AND MC ¢ = 3 THEN 4128 
IF MC) = 35 THEN MC = 3:MR = MR + 1 
IF MR) = 15 AND MC) = 35 THEN 4aa 
RETURN : REM SOUND ROUTINE LOCATION 
REM FIRE 
IF XR ( = 14 THEN W= PEEK ( - 16384) 
~ 12 

PI = PI - 1: IF W( = @ THEN 33a 
IF W= 32 THEN POKE ( - 16368),a: 
GOTO S25 

GOTO 33a 
REM LASER ADVANCE 
IF XR >) = 13 THEN 332 
IF XR ( = 2 THEN 330 

HR = XR:HC = XC: IF HR >) = 2 AND HR ¢ 
= @ THEN Hi = HR * 128 + 896 
IF HR) = 9 AND HR ¢( = 16 THEN Hi = 
(HR - 8) * 128 + 936 

H@ = Hi + 39:UN = UN + 1: REM SOUND 
ROUTINE 
IF RP = 1 THEN VTAEB 2: HTAER 2@: PRINT 
ABS (R - UN); 
POKE H1,16@: POKE H@, 162 
IF PEEK (Hit + 1) ¢ ) 16@ OR PEEK 
(He - 1) ¢€ > 16@ THEN 57@ 

Hi =Hi + 1:H@ = H2-1: REM SOUND ROUTINE 
POKE 769,112 
POKE 772.6 
POKE 768, 1 

CALL 768 


POKE H1,17@: POKE HE, 172 

IF ABS (H® —- Hi) ( = 2 THEN 92a 
GOSUER 355: GOTO 54a 

REM DIRECT HIT 
POKE Hi,17a@ 

IF DEE (ua . 
POKE H, 160:He 
POKE Hf, 17@ 

FOR O = 1 TO #:NEXT:REM SOUND ROUTINE 
GOTO 58@: REM TACK ONTO LINE 595 

REM DELETE 

= 1: POKE H1,16@: POKE He, 16a 


) © > 46! 


1) 
= He - & 


IF MR > = © AND MR ¢ = 8 THEN N = MR 
* 128 +896 +MC-—1: REM SOUND ROUTINE 
IF MR > = 9 AND MR (€ = 16 THEN N = 
(MR - AY * 127A + BRE + MO - 1 

POKE N,16@: POKE N + 1,164 


POKE N + 2,168 


625 
658 
635 


645 
65 
655 


662 


682 


J = INT ¢( RND (1) * 5 + 1) 

IF N+ J - 128 ) = 1190 THEN 642 

GOTO 66a 

POKE N + J ~ 128,17@: POKE N + 128,178 
FOR I = 170 J * 1@: NEXT 

POKE N+ J - 128,16@: POKE N + 128,160 
GOTO 675 

POKE N + J + 128,170: POKE N + 128,174 
FOR I = 170 J * 1@: NEXT 

POKE N + J + 128,160: POKE N + 128,160 
IF Z ¢ = 7 THEN 685 

IF RP = @ THEN GOTO 69a 
PI = PI + 1: GOTO 695 
Z= 2+ 1: GOSUE iaaa 


GOTO 625 

PI = PI + i:X$ = XB # "4" 

pp = GP + PI * 10a: GOSUE 7am: GOTO 9aa 
A$ = "TOTAL POINTS: ":T$= "TIME LAPSE: ” 
FR = i5:FC = 3 

FOR I = i170 LEN (As) 

VTAR FR: HTAR FO +25:PRINT MID¢ (TS, (,1)3 
VTAER FR: HTAER FC: PRINT MiD# (@%,1,1): 
FO = FO + 1: NEXT 


PRINT PP3: IF RP = 1 THEN 735 
iF X¥$ = "" THEN RETURN 
REM RESERVE POWER 
R$ = "RESERVE POWER: " 
FR = 2:FC = 2 
FOR I = 1 TO LEN (RS) 
VTAR FR: HTAR FC: PRINT MIDS (RS,I,1)3 
FO = FC + 1: NEXT 


IF RP = 1 THEN X$ =STR&( ABS (R — UND) 
PRINT X$: 

TI$ = "HOLD TIME ": REM HOLD TIME 
IF PEEK (1864) ¢ ) 3& THEN 7912 

FR = @:FC = 25: FOR I = 1 TO LEN (1/4) 


VTAR FR: HTAR FCs PRINT MIDS (T1#,1,1) 
ysFC = FC + 1s NEXT 

VTAR 2: HTABR 36: PRINT INT (¢ ARS (G - 
wi) ) § 

POKE ( - 16368),@: RETURN 

REM TIME REMAINING 

IF RP = 1 THEN DK = 1: GOTO Fi 

IF TT >) = 18@@ THEN 832 

GOTO saa 

FOR TI = 1 TO 12€@@: NEAT 

HOME :R = LEN (X$) 
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B4@ 
845 
BS 
855 
BEa 
865 
B78 
875 
98a 


9as 
914 
91S 
92@ 
925 
934 
935 
94@ 
945 
Foe 
9a5 
964 
965 
378 
975 
98a 
985 
93a 
1 a 
1AAS 
1@1@ 
1G@2a 
1a43u 
1242 


LJ 


414 


IF R = @ THEN 96@ 

PRINT “VERY WELL DONE..." 

PRINT "YOU HAVE "sR3" UNITS OF" 

PRINT "RESERVE POWER...." 

PRINT "PRESS RETURN TO USE”; 

INPUT X$sTT = @:RP = L:UN = & 

HOME 

GOTO sae 

POKE H1,16@: POKE He, 16%: REM DELEGE 
RESERVE UNITS 


IF RP = @ THEN 33a 
IF UN > = R THEN 925 
TF DK = @ THEN 33 


DK = @: GOTO 814 
REM FINISH 
FOR TI = 1 TO ie@a@: NEXT 


HOME 

PRINT "RESERVE POWER EXHAUSTED...." 
PRINT "TOTAL POINTS ACCUMULATED: "35 RR 
PRINT 

GOTO 98 


PRINT "YOU HAVE DESTROYED NOTHING" 
PRINT "YOU HAVE NO RESERVE POWER, " 
PRINT 

GOTO 945 

PRINT 

PRINT “END QF RUN." 


RETURN 


Be Prepared for the Apple Il 


i REM PROGRAM TITLE BE PREPARED 

1@ PRINT CHR# (4) 3"BLOADSOUND" 

“2 HOME =: HTAR i: PRINT ">) BRE PREPARED (¢¢" 

$4 PRINT "BE SURE YOU HAVE READ THE 
INSTRUCTIONS 


PRINT “BEFORE YOU START. DO YOU NEED TO " 
INPUT "SEE THEM NOW (Y/N)? "“sAAS 

IF AAS = "N” THEN 935 

HOME : GOSUR ead 


= 127 
GR 

FOR I = 1282 TO 1287 

FOR J = I TO 1 + 3@ STEP 14a 
POKE J,K 

NEXT : NEXT 

FOR I = 1576 TO 1578 


POKE I,K: POKE I + 37,K 

NEXT 

FOR I = 1583 TO 1588 

FOR J = 1 TO 1 + &@ STEP ia 
POKE J,K 

NEXT : NEXT 

FOR I = 141@ TO 1922 STEP 128 
FOR J = I TOI + 35 STEP 5 
POKE J,K 

NEXT : NEXT 

FOR I = 1966 TO 145@ STEP i128 


FOR J = I TO 1+ 35 STEP S 
POKE J, 
NEXT : NEXT 
POKE - 16368,@: IF C ) 3 THEN C = 1 


IF C >) 39 THEN C = 1 


IF VD = @ AND VW = @ THEN F = id@aa 
IF VD + VW = 2@ THEN 342 

D= $§.jIJINT ¢ RND (1) * C + 12) 
IF F ¢€ = 1 THEN F = @: GOTO 3sue@ 
GOSUR 35aa 

S = 1832 
IF § = 1871 THEN DI = - i: GOTO 1893 
IF ( PEEK ( —- 16384) - 176) = D THEN 
TAZ 


T=S:8 =S +1 
POKE T,@: POKE S,15G:F = F -. 1a 
GOTO 1242 

T=S5:5S =S-1 
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IF ¢ PEEK ¢ - 16384) - 176) = D THEN 
POKE T,@: GOTO 7@aa 

IF S = 1832 THEN DI = 1: IF C = 9 THEN 
1 Quiz 

IF DI = - 1 THEN 1144 

IF € ¢ > 9 AND S = 183e¢ THEN C = C + 
1: POKE —- 16368,@: GOTO 18a@5 

POKE T,@: POKE S,1i53:F = F - 1@ 

IF DI = - 1 THEN 1a9a 

PRINT " A LONG TIME FROM NOW, IN A 
GALAXY" 

PRINT "LIGHT-YEARS AWAY..." 

PRINT =: PRINT "YOU HAVE BEEN ASSIGNED 


TO DUTY ABOARD" 


PRINT "THE SPACE CARRIER ° XENOPHON’, " 
PRINT "YOUR ASSIGNMENT: TQ SAFELY DOCK 
TWENTY" 

PRINT "BATTLE CRUISERS RETURNING FROM 
DEER" 

PRINT "SPACE. ": PRINT 

INPUT "PRESS RETURN TO CONTINUE": AAS 
HOME = PRINT "THE VESSELS HAVE 


LIMITED FUEL 


REMAINING" 


PRINT "SOG YOU MUST DOCK THEM AS SOOQN AS" 
PRINT "POSSIBLE. YOU WILL SEE THE PORTS" 
PRINT "ON THE SCREEN AS BLUE AND 

WHITE TUBES. " 

PRINT "WHEN YOU THINK THE VESSEL IS 

AT THE" 

PRINT "OPENING, PRESS A NUMBER KEY 

RE TWEEN" 

PRINT "ONE AND TWO FOR THE FIRST 
VESSEL, " 

INPUT "PRESS RETURN TO CONTINUE ";AAG 
HOME =: PRINT "FOR THE SECOND VESSEL 


YOU WST CHOOSE” 


PRINT "RETWEEN KEYS ONE THROUGH THREE, 
THE" 

PRINT "POSSIBLE CHOICES INCREASING 
FOR EACH" 

PRINT "VESSEL UP TO NINE, THEN 
STARTING OVER." 


PRINT"IF YOU FIRE AT THE WRONG TIME OR" 


PRINT 


"ALLOW THE VESSEL TO RUN QUT 


OF FUEL," 


PRINT 


"YOU WILL HAVE DESTROYED A 


PEALE PEST PT 
YRWWvrMeOLc. 


PRINT 


"VESSEL AND MANY HUMAN LIVES. 


TAKE THIS” 


PRINT "ASSIGNMENT SERIOUSLY. 
WILL BE ALL" 


THAT 


PRINT : INPUT "PRESS RETURN TO BEGIN" 
sRAS 
RETURN 
POKE — 16368,@:X = 5 
AA = @ 
AA = AA + 1: GOSUR Baad 
IF AA ¢ 11 THEN 7a@4a 
GOTO 3220 
GOTO 7@1ia 
IF X >) 1@66 AND X ¢ 1141 THEN 9@2 
IF PEEK (X - 128) ¢ > @ THEN 91@@ 
Y= XX = X - 128 
POKE Y,@: POKE X,1353 
RETURN 
FOR II = 1@66 TO 1496 STEP 1@ 
IF X > II AND X ¢ II + S&S THEN VY = XxX 
= X + 856 
NEXT II: GOTO 8@za 
GOSUB 362d 
HOME : VTAR £3: FLASH : HTAH le: 
PRINT "VESSEL DESTROYED" :VW = VW + 1: 
FOR TT = 1 TO 2@@@: NEXT =F = 1a: 
NORMAL : POKE X,a@ 
GOSUE F95aa 
C=C + i: POKE —- 16368,@: GOTO i@as 
GOSUR 38@a 
HOME : VTAR €&3: INVERSE : HTAER 13: 
PRINT "VESSEL ‘DOCKED": FOR TT = 1 
TO 2@Q@@: NEXT =: NORMAL : POKE X,a 
VD = VD + 1:F = 10@aqa 
GOSUEB 35@a 
C=C + 1: POKE —- 16568,4: GOTO 14a 
GOSUB 972 
NOTRACE : VTAB 23: INVERSE : HTAR is: 
PRINT "FUEL EXHAUSTED”: FOR TT = 1 T 
O 28@a: NEXT =: NORMAL VW = VW + 1:F 
= LMA 
POKE X,@ 
GOSUB 35aa 
C=C + 1: POKE —- 16368,@: GOTO 1@a5 
GOSUB 95a 
VTAB Zi: PRINT TAR 12)3"G AME 
OVE R " 
FOR TT = 1 TO 6@@@: NEXT 
TEXT : HOME =: END 


417 


418 


HOME 


VTAR 


: VTAB fe: 
REMAINING: 
“4: PRINT 


nar 


VESSELS DESTROYED: "s:VW 
RETURN 
FOR 1I = 1704 


POKE 
CALL 
POKE 
CALL 
NEXT 


769, 159: 
768 
769,173: 
768 


RETURN 
769,8: POKE 77, 14 


POKE 
POKE 
CALL 
POKE 
POKE 
CALL 
POKE 


PRINT 
VESSEL. ": 


768, 3 
766 
769,13: 
764, 3 
768 
769, 26: 


POKE 77@,7: 


POKE 770.6: 


POKE 77a, 3a 


PUKE 770,49: 


769,6: POKE 774,38 


768, 16 
771 
769,135: 
768, 16 
768 

763, 92: 
768, 17 
768 


POKE 772, 5 


POKE 77a,5 


PRINT TAE( 


"VESSELS DOCKED: 


13); "FUEL 


POKE 768,3 


POKE 768, 3 


POKE 766, 3 


"ONE AND TWO FOR THE FIRST 
PRINT 


"sVDs"! 


Rain of Terror for the Apple Il 


REM PROGRAM TITLE:RAIN OF TERROR 
CLEAR 

HOME : PRINT 

HTAB i@: PRINT "*** RAIN OF TERROR ***" 


PRINT 
INPUT "INSTRUCTIONS (Y/N) "3AS 
IF A® = "N" THEN 19% 


PRINT "YOU WILL BE ROMBARDED FROM THE " 
PRINT "SKY BY FALLING BOMBS. ALL YQU" 
PRINT "NEED TO DO TO STAY ALIVE IS TO" 
PRINT "USE THE LEFT AND RIGHT ARROW 
KEYS" 

PRINT "TO GET OUT OF THE WAY OF THE” 
PRINT "FALLING BOMBS. SOUNDS VERY” 


PRINT "STMPLE, BUT YOU MUST BRE FAST!" 
PRINT 

PRINT 

PRINT "PRESS RETURN TO BEGIN" 

INPUT AAS 

HOME 


REM HORDER / MESSAGES 

GR : COLOR= 7: HLIN @,39 AT WU 

GOSUR Sit 
R= @: REM POINTS 
PR = i:PC = @:PP = PC + S9:UR = PR + 
13sUC = PC:UV = UC:UW = UC + 34:RR = @ 
RR = a 

COLOR= 3: PLOT PC, PR: COLOR= @: PLOT 
UC, UR:PC = PO + 


UC = UC + 2: PLOT PC —- 2, PR: COLOR= ii: 
PLOT UC, UR 

IF PC >) = PP THEN COLGR= @: PLOT UC, 
UR: GOTO 24 
PX = INF ¢ RND (1) * 39) 

IF ABS (PC - PX) ¢ = & THEN Sea 
GOTO £52 

REM A DROP 
PL = BPR 


COLOR= 3: PLOT PC, PR:PR = PR + 1 
COLOR= @: PLOT PC,PR - 1 


IF PR >) PL + 13 THEN 414 
KM = PEEK ( ~- 16344) ~ 126: IF K = 6 
THEN 420 


IF K = @1 THEN 474 
R= R+ 2o:RR = RR + 5S: VTAR fli: HTAR 
18: PRINT RR3: VTA ee: 


419 


HTAB 18: PRINT Ry; 


420 


IF PR = UR AND PC = UC THEN SoMELSE 
GOTO 34 

GOTO 34 

PR = PL:RR = @: GOTO E5a 

COLOR= @: PLOT UC,UR: PLOT UX,UR 
UC = UC - & 


IF UC < = UV THEN 482 
COLGR= ti: PLOT UC,UR 

POKE ( - 16366),@:UX = UC 
UR = PL + 13:UC = PC: GOTO 342 

COLOR= @: PLOT UC,UR: PLOT UX,UR 
UC = UC + 2 

IF UC) = UW THEN UC = UW 

GOTO 45a 

REM MESSAGES 

VTABR 21: PRINT “POINTS BEFORE HiT"; 
VTAB 22: HTAR 1: PRINT “TOTAL POINTS "; 
RETURN 

REM BOMBED 

R= R - RR: HTAR 22: VITAE 1G: PRINT Rs 
IF UC ¢ = @ THEN UC = UC + 3 


IF UC) = 37 THEN UC = UC - 3 

Ri = UR ~ i:Ci = UC:R& = Ri:sC& = Ci - 
t:RS = AL:CS = C1 + 1:04 = 1 

COLOR= INT ¢ RND (1) * 6 + 4) PLOT 
uC, UR 


PLOT Ci,Ri: BLOT C2, Re 
PLOT C3, R3 
FOR T = i TO Swd: NEXT :U4 = U4 + 1 
COLOR= @: PLOT UC,UR: HLIN Cé,C3 AT Re 
IF ABS (UR - RI) >) = 4 THEN 672 
Ri = Ri —- 1:C# = C1 - U4:C3 = Ci + Us: 
GOTO Ea 
REM GONE 
FOR T= 1 TO 25a: WEYT 
TEXT : HOME 
PRINT "YOU HAVE BEEN DESTROYED BY ONE” 
PRINT "OF THE FALLING BOMBS. YOUR” 
PRINT "TOTAL POINTS ACCRUED BEFORE" 
PRINT "BEING DESTROYED WERE: "sR 
PRINT : FOR T = 1 TO im@a: NEXT 
A$ = "RAIN GF TERROR” 


FOR 1 = 1 70 LEN (AS) 

VTAR 15: PRINT MIDS (AS,I,1)3 
NEXT 

END 


a 
‘ 


Knights for the Apple Il 


ro fo fis 
cn S GO 
g Q@ & 


REM PROGRAM TITLEsKNIGHTS 

PRINT CHRS (4) :"BRLOADSOUND" 

CLEAR 

HOME : HTAR 15 

PRINT ")> > KNIGHTS <¢¢" 

PRINT 

PRINT "INSTRUCTIGNS NEEDED?" 

INPUT T# 

IF T$ = "N"” OR TS = "NO" THEN 37 
PRINT "THERE ARE 1@ KNIGHTS IN A CASTLE." 
PRINT "THESE ARE KNIGHTS WHO HAVE DONE 
WRONG" 

PRINT "AND WERE IN A DUNGEON WAITING" 
PRINT "TO HAVE THEIR HEADS REMOVED. " 
PRINT "THEY HAVE ESCAPED FROM THE 
DUNGEON” 

PRINT "AND CAPTURED THE CASTLE. " 
PRINT "WITH THEM THEY HAVE EIGHT” 
PRINT "HOSTAGES WHOM THEY HAVE 
CAPTURED" 

PRINT "THE KING WILL NOT MEET THEIR 
TERMS" 

PRINT "SO THEY HAVE VOWED TQ) FIGHT" 
PRINT "TO THE DEATH..." 

PRINT : INPUT "PRESS RETURN TO 
CONTINUE: ";AAS 

PRINT "YOU ARE THE SHARPSHOOTER 
SELECTED" 

PRINT "BY THE KING TO TERMINATE EACH" 
PRINT "OF THESE KNIGHTS. YOU ARE" 
PRINT "EQUIPPED WITH A HIGH-POWER 
CROSS-—" 

PRINT "BOW. ALONG THE CASTLE WALLS 
ARE" 

PRINT "FIVE WINDOWS. EACH TIME A 
FIGURE" 

PRINT "APPEARS AT A WINDOW YOU'LL HAVE" 
PRINT “THE OPTION OF FIRING (BY 
STRIKING” 

PRINT "THE SPACE BAR) OR NOT. THE" 
PRINT "FIGURE APPEARING IN THE WINDOW" 
PRINT "COULD BE ONE OF THE HOSTAGES. " 
PRINT "IF IT IS A KNIGHT AND YOU 
DON’ T FIRE" 

PRINT "YOU COULD BRE HIT..." 


421 


35% PRINT 

S64 INPUT "PRESS RETURN TO BEGIN, "3Tt 
S74 HOME #4 = 1MsHD = 8:CR = 1: GR 

382 REM MAKE A CASTLE 

394 COLOR= 6: FOR C = @ TO 39: HLIN @, 39 


Af Cs NEXT 
4a¢@ COLOR= i@: FOR C = i@ TO £6: HLIN ©, 38 
AT C3: NEAT 


41@ FOR C = 2 TO 38 STEP & 
420 PLOT C,9: NEXT 


oim X = 14:¥Y = 4: COLOR= 6 

seW FOR C = X TO (X + 11) 

go@ FOR Y = 4 TO Se STEP 7 
S4@ HLIN Y¥, (¥ + 4) AT C 


w6@ NEXT C . 

29@ REM GET A WINDOW 

6@@ W= j§INT (3 * RND (1) + 1) 

Gig@ WI = 7 & W- o 

628 POKE (¢ - 16368),@: REM PAUSE BEFORE 
PLACING 

634 PPB = INT (7@@ * RRND (1) + S51) 

642 FOR PU = 1 TO 7aHe 

6S5@ IF PU = PP THEN 674 

66@ NEXT : GOTO 62a 

67@ GOSUB 163 

68@ REM SHARPSHOOTER TO FIRE 

69@ FOR TI = 1 TO 1@ 


7O@ WS = PEEK ¢ —- 16384) - 128 

7iQ@ IF WS = Se THEN 734@ 

72M NEXT 

73@ POKE ( —- 16368),%: REM KNIGHT OR 
HOSTAGE 

748 Hi = INT (3S * RND (1) + 1)8HE = INT 
(3 * FRND (1) + 1)3sHS = INT (5 * RN 
D (1) + 1) 

7o@ H = ABS (Hl —- He - H3) 


764 GOSUR 167@ 

762 IF H = W THEN 1244 

765 IF HD ¢ = @ THEN THEN 844 

77@ IF H ¢« = @ORH?> = 35 AND TI ¢ = 
99 THEN 79% 


78@ GOTO 844 

73@ REM A HOSTAGE 

Baw TF TI >} = 75 THEN Asa 

8ia@ GOSUB 18@a: PRINT "YOU HAVE JUST 


KILLED OQNE OF" 
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Bid 
B3u 
84a 
8S 
86a 
865 
87a 
88a 
885 
892 
9aga 
914 
928 
938 
940 
9Se 
36a 
97 
98a 
99m 
935 
1 aid 
ima 
1a2za 
123 
142 
1245 
Las 
1W62 
12a 
1a9a 
11a 
iii 
1122 
113 
114 
1154 
1164 
1165 
117 
1182 
119@ 
12a 
1Z1 
ive 
1234 
1242 


125 


TIMES, ” 


PRINT "OF THE HOSTAGES, TURKEY!!!” 
GOTO 972 
IF TI ) = i@@ THEN Baa 
PRINT "GOOD SHOOTING! YOU HAVE" 
PRINT "ELIMINATED ANOTHER KNIGHT!" 
GOSUB 1900 
GOTO 940 
IF H)> = @ANDH ( = = THEN 1022 
GOSUB Ziad 
PRINT "THINK FASTER!! YOU HAVE BEEN" 
PRINT "HIT BY ONE OF THE KNIGHTS!!!" 
HK = HK + i 
IF HK >) = 6 THEN im6a 
GOTO 99a 
K = K -— i: PRINT K;" KNIGHTS REMAIN” 
IF K ¢ = @ THEN 1iza 
GOTO 99a 
HD = HD —- i 
IF HD ¢ = @ THEN i182 
FOR TX = 1 TO 15@@: NEXT : HOME 
GOTO 1400 
REM CLEAR PRINT AREA 
GOTO 59a 
IF HD < = @ THEN 89a 
PRINT "GOOD THING YOU DIDN'T SHOOT!” 
PRINT "THAT WAS A HOSTAGE!” 
GOSUB 1902 
GOTO 99a 
REM HIT ENOUGH 
PRINT "YOU HAVE BEEN HIT "sHK:" 
PRINT “YOUR BODY CANNOT STAND” 
PRINT "ANY MORE. YOU ARE DYING." 
GOTO 153a 
REM KNIGHTS KILLED 
GOSUE 1920 
PRINT "YOU HAVE KILLED ALL. TEN” 
PRINT "KNIGHTS. THE KING WILL BE” 
PRINT “PROUD OF YOU, MY FRIEND..." 
GOSUE 1900 
GOTO 1534 
REM HOSTAGES GONE 
GOSUER isaa 
PRINT "YOU HAVE KILLED ALL GF THE ” 
PRINT "HOSTAGES... YOU TURKEY!:" 
PRINT "THE KING WILL HAVE YOUR HEAD!” 
GOTO 99a 
REM COMPLETE MISS 
XX = INT (37 * RND (1) + 3) 
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127@ YY = 


1288 
129@ 
i295 
131@ 
13520 
133@ 
1352 
1562 
1374 
13582 
1420 
1414 
1420 
1425 
1431 
1448 
1458 
1462 
1465 
147@ 
1484 
149@ 
1 Sa 
1S1a 
132 

153@ 
1542 
ISSA 


1555 


1562 
157@ 
is8a 
159 
L6E@a 
161 
162d 
1634 
164 
1654 
1664 
1678 
168 
1694 
172d 
1712 
18a 
181@ 


424 


INT (1@ * RND (1) 
IF Y¥Y ¢,= 17 THEN 127@ 
COLOR= @: PLOT XX, YY 
GOSUR Fide 

PRINT "YOU'LL HAVE TO DO BETTER" 
PRINT "THAN THAT, YOU'VE MISSED!!" 
GOTO 392 

REM CROSSROW ROUNDS 


+ 13) 


VTAR 21: HTAR 1 

PRINT "YOU HAVE "sCRs" ARROWS TO FIRE." 
RETURN 

REM ENOUGH ARROWS LEFT 

IF TI ¢ = 99 THEN CR = CR - 1 
GOSUB 145M: IF CR ¢ = @ THEN 1444 
FOR TX = 1 TO 2@@a: NEXT : HOME 
GOTO 39a 

REM END 

FOR TX = 1 TO adit: NEXT 

TEXT & HOME 

GOSUB 21a 

PRINT "YOU HAVE EXHAUSTED YOUR” 
PRINT "SUPPLY OF CROSSBOW ARRGWS. ” 
IF K ¢ > @ THEN 151 

GOTO 153 


PRINT "THERE ARE STILL "sK3”" KNIGHTS" 


PRINT "IN THE CASTLE" 
PRINT 

IF HD ¢ = @ THEN i562 

GOTO 1600 

GOSUE Z1a2 

PRINT "YOU ARE A BLUNDERING SHARP-" 
PRINT "SHOOTER, YOU IDIOT!!!" 

PRINT "YOU HAVE HIT AND KILLED ALL” 
PRINT "EIGHT HOSTAGES!" 

PRINT 

PRINT "END GF RUN" 

END 

COLOR= 9: FOR Y = (WI + 1) TO (WI + 3) 
FOR Z = 21 TO #3: PLOT Y,2 

NEXT Z: NEXT Y 

RETURN 

COLOR= 6 

FOR Y = (WI + 1) TO (WI + 3) 

FOR Z = #1 TO #3: PLOT Y,Z 

NEXT Z: NEXT Y 

PETUPN 


REM BEE-ROOP 
POKE 7693, 33 


POKE 


POKE ~ 


CALL 
POKE 
POKE 
POKE 
CALL 


RETURN 


REM 

POKE 
POKE 
POKE 
CALL 
POKE 
POKE 
POKE 
CALL 
POKE 
POKE 
POKE 
CALL 
POKE 
POKE 
POKE 
CALL 


TA-DA TA-DAA!! 


769,4 
778, 23 
768, 1a 
771 
769, 8 
772, 14 
768, 12 
7714 
7E9, 4 
77d, 2S 
768, 12 
774 
769,28 
772, 14 
768, 5a 
771 


RETURN 


POKE 
POKE 
POKE 


769, 200 
770, 75 
768, 1 


RETURN 
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Mind Invasion for the Apple Ii 


ig@ REM PROGRAM TITLE MIND INVASION 
c@ REM INSTRUCTION ROUTINE 
3@ CLEAR : GOSUR is5@@:J = 1:TR 
4@ GR : REM OUTER GRAPHICS 


i 


1 


S24 X = 1sy¥Y = SBiK = TEPN = 1:3TX = 1939:TL 


= TXeXi = i 


6@ COLOR= K: PLOT X1,X:s PLOT Y,X: PLOT X1 


+ £¢,X: PLOT Y - 2,X 


7aX =X + 2tY = Yr tJ = J+ isXi = xi + i 


Ba IF J ¢ > 8 THEN GOTO 62 
S”@ REM GOTO CHARACTER PRINT/IF DONE 


wo PLOT Ki,X: PLOT Y,xX:Xl = Xi - is¥ = 


Y+aisx = X + 1 
laa IF J = 16 THEN POKE TX,2¢24:N = 14: 
GOTO 148 


11@ COLOR= K: PLOT X1,X%: PLOT Y¥,X: PLOT 


+ 2X: PLOT Y ~- 2,X 


115 IF PN = i THEN AC1) = Xi:ACe) = ¥sb 
ACI) SR = Ale) 
tom xX = X + SeXl = -~— t:¥Y = ¥ + i 
1: 


is4@ J = J + GOTO ila 


Al 


1 
14@ VTAB 21: HTAB 23: PRINT "YOUR POINTS= °"; 


iS@ PI = a 

16@ GOSUBR 914 

17@ PRINT "PLAYER: "sNS$¢(PZ) 

cag REM CHARACTER GRAPHICS VARIABLES 


aia Jo = Y:QU = 2:0W = 32:6 = G:F = 1@:TC 
= 1:80 = 16:T = 1:8& = E:F2 =F 

220 KY = 1:6 = 3@: IF TI >) = 3 THEN 88a 

H3Q 


,E: PLOT QW + I,E: PLOT QU + I,F: 
QW + I,Fr&i = —E - liFl = F + i 
e522 COLOR= @: PLUT GU + 1,6: PLU UW + 
E: PLOT GU + I,F: PLOT QW + I,F:El 

- 1:Fl = F + 1 


OLOR= 13: FOR I = @ TO J: PLOT GU + 
E 


PLO 


l, 
= £ 


cog IF T) = 2 THEN J =J - 1 
272 COLOR= 13: FOR I = @ TO J: PLOT Gu + 
I,F - 1: PLOT QW + I1,F - 4: PLOT QU + 
1,— - 1: PLOT QU + I,—: PLOT GU + 1,F 


-a@ PLOT GW + 1,E - i: PLOT QW + I1,F + 
PLOT GW + I,Ei ~ i: PLOT QW + I,Fi 


1s 
+ i 


=9@ COLOR= @: PLOT GU + I,F - 1: PLOT Qw + 


I,F ~- ds: PLOT QU + I,& - i: PLOT QU 


+ I,E: PLOT QU + I,F 
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fri 


PLOT GW + 1,6 - i: PLOT GW+ IVF + i: 
PLOT QW + I,E1 - 1: PLOT QW + I,F1 +1 
E=6 —- t1:F = F + i:6£1 = Ef - @: FY = Fi 
ersFl = Ee + & 
IF T ¢ = 4 THEN E® = Ee + 1:Fe = Fe 
+ 1:T = Fri 
IF T >} = 5 THEN Ee = Ee - i:Fe = Fe 
- 1:7 = T + tI 


REM RESET VARIABLES IF DONE 
GOTO 7a 
IF T >) = 8 THEN =a 

KY = KY + 1: GOTO 26a 


REM FOR CHARACTER CLEAR 
XS = PEEK ( - 16384) - 128 
TI = TI + tl: REM LIMIT COUNT WITHOUT 
MOVEMENT 
IF XS € > 73 AND XS ¢ ) V7 THEN 
POKE ¢ - 16368),@: GOTQ 34a 
TI = is REM PLACEMENT /LIMIT/RESET 


IF XS = 73 THEN POKE ( — 16368),@: 
GOTO 462 


IF XS = 77 THEN POKE ( - 16369), @: 
GOTO 49% 

GOTO 342 

POKE TX,@: IF TX = 1483 THEN TX = TX 
+ 856 


IF TX ? 1555 AND TX (¢ = 1939 THEN 
TX = TX - 128 

IF TX >} 1483 AND TX ¢ = 1339 THEN T 
= TX - 128 


IF TX = 1555 THEN TX = TX + 128 

POKE TX, e¢ek4esUcKY) = XS: GOTO 34a 
POKE TX,@: IF TX = 1939 THEN TX = Tx 
- S56 


K 


IF TX ¢ 1939 AND TX >) = 1555 THEN TX 
= TX + 128 
IF TX >) = 1483 AND TX ¢ 1467 THEN 


TX = TX + 128 

IF TX = 1339 THEN TX = TX - 128 
POKE TX,@24:U(KY) = XS: GOTO 34a 
REM TOP/BOTTOM CHARACTERS 

FOR V = 1 TO G: FOR OX = 15 TO 25: 
PLOT @X, TC 

PLOT GX, BC: NEXT 


COLOR= @: FOR @X = 15 TO &5: PLOT QX 
PLOT Q@X, BC: NEXT +: NEXT 
TC = TO + 1:8C = BOC - 1:6 =G-eé 


427 


66a 
674 
68a 
CAR 
7aS 


71@ 
72@ 
73a 
748 
7a 
76% 
Cle 
78a 
738 
BAe 
Bid 
Be 


91a 
92a 
95a 
964 
374 


38a 


99 
1 aaa 
1211 
1aza 
1234 
1W4Q 
Las 


1@6a 
127 
1480 
1294 
11@ 
1114 
112a 
1134 
114@ 
11S 
116@ 
Lead 
ivi 
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L. 


L 


+ 


T 


FT 


F 


(H+ 
NS(H + 1) 


T 
+ 


REPLACE USER CHARACTER 
(TX) @ THEN PGKE TX,2£38 


REM 
IF PEEK 
GOTO si 
REM CRUSHER MOVEMENT 
COLOR= @: PLOT (AC1) 
(AZ) - £),9 

PLOT L,1i1S: PLOT R,1l 
IF ABS (L — R) < 

L + 3:R R- 3 
COLOR= K: PLOT L,15: PLOT R,i5:GOTO 4a 
Al) :R Ate): GOTO Saw 

POKE L,K: POKE ({(L + &£),K 

POKE R,K: POKE (R - ©£),K 

REM RECYCLE 

GOTO 4aa 

REM CRUSHED? 

IF PEEK (TX) W@ THEN 8&4 

IF TI <¢ <x“ AND UCKY) ¢ > UCKY -— 1) 
Py PI + ARS (TX -— TL): GOSUEB 
35: VTARK 21: PRINT PI: RETURN 
~3e 

PLAYER ADVANCE/END 

P( PZ) PI:PI @sP7Z PZ + { 
IF PZ > PL THEN GOSUB 12@@:TR 
1:PZ 1 
IF TR> = 
1a1@ 

FOR LX 1 TO 14: PRINT =: NEXT 
GOSUB fide: HOWE si 1: GOTO 44 
REM END/HIGH POINT WINNER 

@sH 1: IF H PL THEN 112 
IF FTCH) >) = FITCH + 1) THEN i178 
FT (H) sFT ¢(H) FITCH + 1) 
TCH + 1) FT aNd NE CH) s NS (CH) 
1) 


+ £),9: PLOT 


ty 
vt 
—_ 


3 THEN 75@ 


TR + 


— 
mee 


-_ 


3S THEN GOSUB 124@: GOTO 


— 


— 


— 


— — 
— 


N& 


NS 
= 1] 
H 
IF H 
IF T 
GOTO 13 
TEXT 
HOME 
PRINT "YOUR TOTAL POINTS, AFTER =" 
PRINT "“ROUNDS="3TPCH) + WE(H) 

GOTO 1394 

REM TALLY FIRST ROUND POINTS 

IF TR > - THEN RETURN 


L THEN 1@3@ 
THEN idea: REM NOT REFINED 


2 


+ j 
( fp 
= 1 
4 


= oc 


FOR I = 1 TO PL 
WE (I) TP(I): NEXT = RETURN 
REM FINAL TALLY 
FOR ft = 1 TO PL 
FY(I) WE(I) + TPCT) 
NEXT 
RETURN 
REM TOP WINNER (MORE THAN 1 PLAYER) 
HOME 
= J 
PRINT "THE TOP WINNER: "3N#(I)s" WITH": 
PRINT FT¢(I)3" POINTS. " 
PRINT "FOLLOWED HY:" 
FOR I = &¢ TO PL: PRINT NS¢(I) s" WITH" 
PRINT FT¢(I)s" POINTS. " 
NEXT 
PRINT 
PRINT "END OF PROGRAM RUN. " 
END 
REM INSTRUCTIONS 
T$ = "MIND INVASION" 
= 11: HOME 
FOR LX = 1 TO LEN (I$) 
HTAR Is PRINT MIDS (I$,LX,1); 
FOR Y = 1 TO S@: NEXT Y 
= [— + 1: NEXT LX 
FOR Y = 1 TO 18@@@: NEXT 
PRINT 
INPUT "PLAYER NUMBER (31-1@) "3 PL 
IF PL ¢ = @ OR PL > = 11 THEN 159 
PRINT "PLAY OUTLINE NECESSARY "; 
INPUT X% 
IF X$ = "N" OR X$ = "NO" THEN 24a 
PRINT 
PRINT "EACH OF YOU "sPL3" PLAYERS WILL" 
PRINT "“EXPERTENCE A NEW FORM OF MIND" 
PRINT "INVASION. THE ORJECT OF THE 
GAME: ” 
PRINT "KEEP PLAYING AS LONG AS 
POSSIBLE" 
PRINT "WITHOUT GETTING * CRUSHED’. " 
PRINT "YOU, THE USER, WILL BE LOCATED " 
PRINT "AT THE CENTER OF THE VIDEO ”" 
PRINT "IN THE FORM OF A BLUE BLOCK. " 
PRINT "YOUR ONLY MOVEMENTS WILL BE UP" 
PRINT "AND DOWN. YOU WILL DO THIS " 
PRINT "WITH THE °’I? AND ’M’ KEYS. " 
PRINT 
PRINT "PRESS ENTER TO CONTINUE"; 


429 


1794 
18a@ 
i8ia 


162 
18s 


1844 
18S 
1864 


187@ 
18sa 
183 
1 Seti 
131@ 
1924 
1925 


i934 


1948 
195@ 
1955 
1964 
197@ 
1984 
199@ 


= AZ 
e21G 
ree 
Eas 
HA42 
rea fab 
“M6 
ara’ 
HMB Yi 
Saga 
14a 
S1as 
£118 
cle 
13a 
H144 
£150 
16 
rome 4174 
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INPUT X¢ 

HOME 

PRINT "TO TAKE ADVANTAGE OF ANY 
POINTS” 

PRINT "YGU MUST BE CONSTANTLY MOVING” 
PRINT "UP OR DOWN. THE OUTER 
ROUNDARIES” 

PRINT "OF THE VIDEO WILL CONTAIN" 
PRINT "FLASHING LIGHTS FOR CONFUSION. " 
PRINT "ALSO CONTAINED IN THE 
BOUNDARIES" 

PRINT “ARE BLOCKS, TWO OF WHICH" 
PRINT "WITHOUT NOTICE WILL MOVE VERY" 
PRINT "QUICKLY TOWARD THE CENTER. TO” 
PRINT "YOUR LOCATION. IF YGU CAN " 
PRINT "MOVE OUT OF THE WAY, YOU CAN” 
PRINT "CONTINUE PLAYING; BUT IF, ON" 
FOR LX = 1 TO Z2@Ma@: NEXT 

PRINT "THE OTHER HAND, YOU ARE 
CRUSHED, " 

PRINT "PLAY WILL ADVANCE TO THE NEXT” 
PRINT "PLAYER. THIS IS ALSO TRUE IF” 
PRINT "YOU COLLIDE WITH THE BLOCKS. ” 
FOR LX = i TO #@a@a@: NEXT LX 

PRINT "PRESS ENTER TO CONTINUE” 

INPUT X$ 

HOME : PRINT "THE GAME WILL TERMINATE 
WHEN EACH” 

PRINT "PLAYER HAS PLAYEDATOTAL OF TWO" 
PRINT "ROUNDS. THE PLAYER FINISHING ” 
PRINT "WITH THE HIGHEST POINTS WILL BE” 
PRINT "THE WINNER..." 

PRINT 

PRINT "NOW ENTER THE FIRST NAMES" 
PRINT "OF THE ":PL:" PLAYERS:” 

FOR I = 1 TO PL: INPUT N#(I) 

NEXT 
PZ = 1 

PRINT N#(PZ);" WILL NOW PLAY. PRESS” 


IF PZ > = 2 OR TR> = = THEN 2158 
PRINT "THE ENTER KEY WHEN READY. " 
INPUT S# 

HOME 

RETURN 


PRINT "THE ENTER KEY WHEN READY"; 


INPUT X$:TI = @: RETURN 

COLOR= @: PLOT QU + I,F - i: PLOT ow 
+ 1,F - i: PLOT QU + I,E - 1: PLOT aU 
+ I,£: PLOT QU + 1,F 


Trapped for the Apple Il 


i@ REM PROGRAM TITLE: TRAPPED 

iS PRINT CHR (4) 3"RLOADSOUND" 

<“@ HOME : CLEAR : DIM AACE), PI(1E), I$ (12) 
3@ PRINT "* TRAPPED *” 


4@ PRINT +: INPUT "LIST INSTRUCTIONS?" swe 
of IF WS = "Y¥" OR WS = "YES" THEN GOSURB 
SoA 


60 HOME : GOSUB 33@a:TU = 1 

72 O00 = i:MM = @:CR = a 

Ba GR 

90 CC = @:BR = @:TP = 1£ + @4:TR = TP 
1a@ REM BORDER GRAPHICS 

110 X = i@24:C = 2@4:V = a 

120 COLOR= 12: HLIN @,39 AT a@ 
iZ@S HLIN @,39 AT 1 

130 HLIN @,39 AT 39 

135 HLIN @,39 AT 3a 

144 VLIN @,39 AT 2 

145 VLIN 2,37 AT 1 

152 VLIN @ 39 AT 39: GOSUBR 345a 
155 VLIN 2,37 AT 38 

i64 REM INNER GRAPHICS 


= * (INT ( RND (1) * 13 + 4)) 

180 Ri INT ( RND (1) * @@ + 1) 

185 IF C) @ THEN GOTO zea 

192 RZ = Ri + 9:R3 = INT ¢ RND (1) 
* 3+ 4) 

= R4 = Rl + R3:R5 = RE + RS 

“1 R& = INT ( RND (1) * 2 + 14) 

c2@ IF R& = & THEN R4 = RS 

230 HLIN R1,R4 AT R 

24a U =U + 1 

25a IF U < ) S THEN 17a 

“6@ HLIN @R1 ATR + z 

265 HLIN @RE AT R + 4 

27@ HLIN R4,39 AT R - & 

275 HLIN R5,39 AT R - 4 


277 IF C > & THEN GOTO seu 

“84 IF R?>} = le THEN R= R-~ 4:0 =C +1: 
GOTO isa 

285 IF R ¢ = #6 THEN R= R+ 4:0 = C + i: 


18@ 
3c@ REM START POSITION 
33@ GOSUR 39a 
S34@ PC = ZZ: GOSUR 35a 
345 PR = 22 
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IF SCRN¢ PC,PR) ¢ > @ OR SCRNC( (PC 


+ £),PR) ¢ > @ THEN 33a 
TF SCRN( PC, (PR + 1)) ¢ > @ OR 
SCRN( PC, (PR ~ 1)) ¢ > @ THEN 33@ 


Pi = PO + 2:Pe = PR: COLOR= 9: PLOT PC, 


PR: COLOR= 13: PLOT Pi, Pe 


REM MOVEMENT OF COMPUTER PIECE 
IF SCRN( PC, (PR - 1)) = @ THEN A = 
i: GOTO 44@ 
IF SCRN( PC, (PR + 1)) = @ THEN A = 
GOTO 442 
IF SCRN( (PC - 2),PR) = @ THEN A = 
3: GOTO 442 
IF SCRN( (PC + &),PR) = @ THEN A = 
4: GOTO 442 
GOTO 81a 
COLOR= @: GOSUE 7aaa 
PLOT PC,PR: IF SCRN( P1,Pe) = a 
THEN 172a 
XS = PEEK ( - 16384) - 128: IF XS > 
@ THEN 92a 
GOTO 1130 
POKE ( - 16368),@: ON A GOTO 46a, 
47, 480, 490 
PR = PR - 1: COLOR= 9: PLOT PC,PR:mm 
= @: GOTO 71a 
PR = PR + 1: COLOR= 9: PLOT PC, PR:MM 


= @:3 GOTO 40a 

pc = PC - 2: COLOR= 9: PLOT PC, PR: 
GOTO 76a 

pc = pe + 2: COLOR= 9: PLOT PC, PR: 
GOTO 42@ 


7i@ REM DOWN/UP-SEARCH LEFT/RIGHT 

7om iF SCRN¢ (PC ~ 2),PR) = @ THEN 4i@ 
73 IF SCRN( (PC + 2),PR) = @ THEN 420 
Far IF O = 1 THEN 39@ 

7aa@ GOTO 4a@ 

76@ REM LEFT/RIGHT-SEARCH DOWN/UP 

77@ IF SCRNC(C PC, (PR - 1)) = @ THEN 39 
78@ IF SCRN¢( PC, (PR + 1)) = & THEN 4a@ 
794 IF A = 3 THEN 41@ 

Baa GOTO 4c 

81a REM TRAPPED (COUNTER) 

€@15 ACA) =A 

82a IF ACQO) = A(BG - 1) THEN 88@ 

GB3@ iF MM + = @ THEN 1248 

844 CR = CR + 18 

B60 GQ = QQ + i: IF QQ > = 3 THEN QB = 1 
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8) 


GOTO 39 
IF SCRN¢( (PC + 2),PR) = 13 OR SCRN 
( (PC - 2),PR) = 13 THEN MM = MM + 1 
GOTO 8&3 
REM USER PIECE/MOVE PER KEY 
KE = PEEK (¢( — 16384) —- 128 
IF KE = 77 THEN POKE ¢ —- 16368), @: 
GOTO 97 
IF KE = 73 THEN POKE ( - 16368), 4: 
GOTO 994 
IF KE = 75 THEN POKE (¢( —- 16368),: 
GOTO ial 
IF KE = 74 THEN POKE (¢ —- 16368),@: 
GOTO 1a3@ 
CC = @: GOTO 45@ 
IF SCRN¢( P1,(P2 + 1)) ¢€ > @ THEN 96@ 


GOSUBR 7i@@: COLOR= @: PLOT Pi, PesPe 
= Pe + 1: GOTO 1@5 
IF SCRN( Pi, (Pe - 19) ¢ > @ THEN 36a 
GOSUER 7itds:s COLGR= @: PLOT Pi, Pe:PRe2 
= Pe - 1: GOTO 1asw 
IF SCRNC( (PIL + 2),P2) ¢ + @ THEN 96a 
GOSUR 71@@: COLOR= @: PLOT Pi, Pe:Pi 
= Pl + 2: GOTO 1@5a 
IF SCRN¢ (P1 - £),PE) ¢ > @ THEN 36a 
GOSUR 71i@@: COLOR= @: PLOT Pi, Pe:Pi 
= Pl-¢ 
COLOR= 1.4: PLOT Pl, Pe:TP = TP - 1 
REM USERS MOVES (COUNTER) 
CO = CC + is IF CO > = 1€@ THEN CC = 
@: GOTO 454 
GOTO 3aa 
CR = CR + 1 
IF CR > = 10@@ THEN GOSUR 1458: 
GOTO 118 
GOTO 45a 
REM RECHARGE COMPUTER PIECE 
COLOR= 11: PLOT PC,PR: FOR C = 1 TO 
22a: NEXT 
GOSUB 72a 
COLOR= W: PLOT PC, PR 
GOSUB 151@: GOSUB 3454: GOTO 45a 
REM TRAPPED? 
REM CHECK CHARGE RATE FIRST 
IF CR > = 925 THEN 1288 
GOTO 1294 
CR = 1@@a: GOTO 157 
REM TRAPPED COMPUTER PIECE 
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isa@a@ tL =a 

1341@ COLOR= @: PLOT PC,PR: FOR TI = 
1 TO 1@@: NEXT 

13e@ COLOR= ii: PLOT PC,PR:FOR TI= 1 TO 5a 

134% NEXT 

135@ Lb = Lb + is IF b ¢ = & THEN i314 

is6a@ GOTO 16a2@ 

137@ GOSUB 1454 

1s8@ P= P+ 6 

139@ GOTO 45a 

{45@ REM MESSAGE 

146@ MG = 1744:M$ = "RECHARGING" 

147@ FOR I = 1 TO LEN (MS) 

1486 POKE MG, ASC ( MIDS (MH,1,1)) + 128 

1439@ MG = MG + 1: NEXT 

1495 GOSUH 73a 

15@@ POKE MG, 16@: RETURN 

1Si@ MG = 1744 

Se FOR I = 1 TQ LEN (M$) 

153@ POKE MG, 16a 

15424 MG = MG + 1: NEXT 

155¢@ POKE MG,16@: RETURN 

16@@ REM MESSAGE (TRAPPED) 

161@ MG = 1744 

1624 M$ = "#* TRAPPED #*" 

163a@ GOSUR 1478 

164@ GOTO 1914 

17a@@ REM USER "BURNED" 

171@ MG = 1744 

i7e2a Mh = "* USER BURNED *" 

173@ GOSUR 1474 

174@ REM LEAVE USER POSITION AS-IS 

1752 L = @imMM = a 

176@ COLOR= @: PLOT P1,Pe: FOR TI = 1 TO 


Lage NEXT 

i77@ COLOR= 14: PLOT bi, Pe: FOR Trl=-i1 TO Sua 

i79@ NEXT =: IF -L ¢€ = 1 THEN EL = L + is 
GOTO i7eu 

1a@aa BR = BR + 1: GOSUEH 1514: GOSUB 3458 

181a IF BR > = 6 THEN GOSUB 183%: GOTO 
187@ 

sea GOTO 445 

183sa@ L = a 


1844 REM SQUND 

18S@ REM SOUND 

186@ HOME : RETURN 

187@ PRINT 

188@ PRINT "YOU'VE BREEN BURNED";BR:"TIMES"s 
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189@ 
198 


1914 
192@ 
193@ 
194@ 
195@ 
196@ 


197 
rosa LA 
HA1a 
Rea ikea 
LAS 
H42 
CAS 
rea litea 
2122 
211@ 
fica 
£132 
£148 
c1s@ 


7162 


To Te 


Wwbiw Go Grom mh 
WPO Me awWOon nag 
SFaqrcan ges aegeeaeeas 8A 


Ma fa fo ta Mm fa ta fo fa 


PI¢(TU) 


TU 


— 


p 
PI(AA + 1) 


I 


F 


I 


ewed 
perved 


PRINT "SUCKER! !":TP MA 

PRINT "YOU? RE OUT OF THE GAME...": 
GOTO waza 

REM TRAPPED 

GOSUB 1834a 

PRINT "YA GOT ME TRAPPED, TURKEY!!!" 
PRINT "YOUR TOTAL POINTS NOW EQUAL ”; 
PRINT TP 

PRINT "YOU MADE A TOTAL OF "sTR —- TPs" 
MOVES" 

PRINT 
REM 


"REFORE TRAPPING ME...." 
PLAYER ADVANCE/POINTS 

= Tp 

N THEN 21@@ 
TU + 4 

PRINT "PRESS RETURN, 
INPUT W$:CLS 

GOTO 7a 

REM ALL PLAYED 

REM SORT NUMBERS/PLAYERS 
IF N = 1 THEN eeea 

@:AA = 1 

IF PI(AA) >) = PI(AA + 1) 
PI(AA):PI(AA) = PI(AA + 1) 
= PrI¢ = IS(AA) 
IS(AAR + 1):IS(AA + 1) 


IF TU = 


"s1$ (TU) 


THEN 219% 


— 
— 


$(AA) = 
= 1 

IF AA « N THEN AA 
IF F 1 THEN £1350 
GOTO 2264 

PRINT "YOUVE PLAYED RY YOURSELF, 
AGAINST" 


TS 


—_ 
— 


AA + i: GOTO el4a 


PRINT "THE COMPUTER. YOU WERE 
EFURNED ":BR 
PRINT "TIMES. FINAL TRAPPING SCORE:" 
sPI(TU) 
GOTO 2332 
= { 
PRINT "BEST TRAPPER....":18(1) 
PRINT "TOTAL POINTS="=sPI(1) 
PRINT "FOLLOWING ":1#(1) 
FOR I = & TO N: PRINT I$#(I); 
PRINT " WITH A SCORE OF:": 
PRINT PI(I) 
FOR TI = 1 TO 1@@@: NEXT T1,1 
PRINT 
PRINT "END OF PROGRAM RUN..... " 
PRINT "UNLESS ALL WANT TG PLAY AGAIN?22" 
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436 


PRINT "IF SO, TYPE RUN." 


PRINT =: FOR TI = 1 TO 15@@: NEXT 
PRINT "END" 
END 


REM PLAYERS (NUMBER, NAMES) 


PRINT "ENTER NUMBER OF PLAYERS” 
INPUT N 

IF N¢ = @ORN) = ii THEN 331@ 
PRINT "NOW ENTER THE FIRST NAMES” 
PRINT "OF THE ":N:" PLAYERS" 

FOR I= i TON 

INPUT I$(I): NEXT 

PRINT 

PRINT "THE NAME OF THE PLAYER WHO'S 
TURN" 

PRINT "IT IS WILL BE PRINTED AT THE 
BOTTOM" 

PRINT “OF THE GAME BOARD. 

FOR TI = 1 TO 12@@: NEXT 

HOME 

RETURN 

REM PLAYER 
MG = 1616 

FOR I = 1 TO LEN (I#{TU)) 

POKE MG, ASC ( MIDS (1$(TU),I,1))2MG 
= MG + 1 

NEXT : POKE MG, 32: RETURN 

REM INSTRUCTIONS 


PRINT "UP TO TEN PLAYERS CAN" 

PRINT "TRY TO QUTWIT THE COMPUTER AND" 
PRINT "MANEUVER ITS PIECE INTO A 
SITUATION" 

PRINT "WHERE IT WILL BECOME TRAPPED, " 
PRINT "THE COMPUTER'S PIECE WILL LOOK " 
PRINT "LIKE AN ORANGE BLOCK. YOu, 

THE USER," 

PRINT “WILL HAVE A YELLOW EBILOCK. " 
PRINT "THE COMPUTER WILL MOVE ITS 
PIECE" 


PRINT "ALL AROUND THE GAME HOARD, 
CHANGING" 


PRINT "DIRECTION WHEN IT SENSES 

AN ORSTACLE."' 

PRINT "YOU WILL FOLLOW THE COMPUTER’S 
PIECE" 

PRINT "AND TRY TO MANEUVER IT TQ A 
SECTION" 


PRINT "OF THE GAME BOARD WHERE IT 
WILL BE” 

PRINT "TRAPPED--THAT IS, WHERE IT 
CAN ONLY” 

PRINT "MOVE LEFT QR RIGHT.” 

PRINT 

INPUT "PRESS RETURN TO CONTINUE” sW¢: 
HOME 

PRINT "THE COMPUTER'S PIECE WILL 
CONTAIN A" 

PRINT "* CHARGE’ 3;1IF YOU SIMULTANEOUSLY 
END AT" 

PRINT "THE SAME SPOT, YOU'LL GET ’ 
BURNED’. " 

PRINT "SIX *BURNS’ AND YOU" RE OUT OF 
THE" 

PRINT "GAME. YOU WILL MOVE YOUR PIECE" 
PRINT "BY USING THE ?J? AND 7K? " 
PRINT "KEYS TO MOVE LEFT AND RIGHT, 
AND THE" 

PRINT "* 1? AND ’M® KEYS TO MOVE UP 
AND DOWN. " 


PRINT "WHENEVER YOU MOVE, THE 
COMPUTER WILL" 


PRINT "? BLANK’ 
RE ALLOWED" 
PRINT 


PRINT "TIME, 
HOLD” 
PRINT 
PRINT 


HOW" 


PRINT 
PRINT 
PRINT 


PRINT 
AND RIGHT.” 


ITS 


PIECE. YOU WILL 


"ONLY TEN CONSECUTIVE MOVES 
AT ONE " 


WHEN YOU WISH TO MOVE, 


"DOWN THE CORRECT MOVEMENT KEY. " 
"POINTS WILL BE DETERMINED BY 


"MANY MOVES IT TAKES THE USER" 

"TO TRAP THE COMPUTER’S PIECE. " 
"REMEMBER, TO TRAP THE 
COMPUTER’S PIECE," 
"ONLY ALLOW IT TO MOVE LEFT 


INPUT "PRESS RETURN TO START:"sW 
: RETURN 


HOME 


Zi = 


INT (17 * 


RETURN 


POKE 769, 25 
POKE 77@, 25 


POKE 7686, 1 
CALL 771 


RND 


(1) + la) 


437 


438 


RETURN 
POKE 769,93 
POKE 774, 5 

POKE 768, 1 

CALL 771 

RETURN 

FOR XQ = 13a TO 
IF XQ ) 254 THEN XQ = 
POKE 769, XQ 

POKE 77@,6 

POKE 768, 1@ 

CALL 771 

NEXT 

RETURN 

FOR XQ = 1 TO 4 

POKE 769, 2a 

POKE 774, 4 

POKE 768,5 

CALL 771 

POKE 769,56 

POKE 774, 5 

POKE 768,5 

CALL 771 

NEXT 

RETURN 


2/2 STEP 2a 
eos 


Elevator for the Apple I! 


REM PROGRAM TITLE: ELEVATOR 


= its 


HOME 


DIM F(6@),F%(6@) , GS (64) 
DIM KO(6) 


HTAR 1@: PRINT "*** ELEVATOR *#«" 
PRINT 

PRINT “INSTRUCTIONS REQUIRED (Y/N)": 
INPUT Is: IF I% = "N" THEN N = 1 
INPUT "FIRST NAME: "Ne 

PRINT : IF N = 1 THEN 23@ 

INPUT "PRESENT OCCUPATION: ";P¢ 

GOSUB Z15a@: HOME 

PRINT "YOU HAVE JUST BEEN FIRED AS A"; 
PRINT Peruri 

PRINT "BUT, YOU ARE IN LUCK. I HAVE JUST” 
PRINT "HIRED YOU TO BE AN ELEVATOR" 
PRINT “ATTENDANT IN MY COMPUTER-" 
PRINT "IZED DEPARTMENT STORE. ” 

PRINT “YOUR JOB WILL BE SIMPLE, " 
PRINT N&:". ALL YOU HAVE TO DO ” 
PRINT "IS REMEMBER WHAT IS CON-” 
PRINT "TAINED ON EACH OF SIXTEEN" 
PRINT "FLOORS SO THAT YOU CAN TAKE" 
PRINT "@LL OF MY CUSTOMERS TO THE” 
PRINT “RIGHT LOCATION...” 

PRINT 

PRINT 

REM WHAT’S ON EACH FLOOR? 

FOR I = @ TO 19: READ Fa(I): NEXT 

IF N = 1 THEN 37a 

POKE ¢ — 16368),@: GOSUR £15@: HOME 
PRINT "I ALMOST FORGOT TO TELL 
YOU--THE" 

PRINT "CUSTOMERS, WHEN STEPPING ONTO 
PRINT "ELEVATOR, WILL. TELL YOU WHAT 
THEY ARE" 

PRINT "SHOPPING FOR. THEY WON’T TELL 
you" 

PRINT “AGAIN, BUT FOR EVERY CUSTOMER 
YOU PLACE" 

PRINT "ON THE RIGHT FLOGR, YOU? LL. 

HE PAID" 

PRINT "$1d.@@. THAT WILL BE YGUR ONLY 
WHGE!" 
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PRINT "CUSTOMERS WILL BE GETTING CGN 
AND OFF" 


PRINT "THE ELEVATOR AT DIFFERENT STGPS, 
PRINT "YOU WILL NEED TO REMEMBER 
THESE, TOO, ” 

PRINT N&s0 lh 

POKE (¢ - 16469),@: GOSUB 215@: HOPE 
PRINT “HERE ARE THE FLOORS AND 
CONTENTS :" 

FOR I = = TOG 16 

PRINT I3") “sFH#(T): 

iF I = 8 THEN TT = I * @@@: PRINT : 
GOSUB £13a 

IF 1. > = &@ AND I ¢ = & THEN 44@ 
IF I> = 6 AND I ¢ = 1@ THEN PRINT 
>: GOTO 474 

IF I > = 11 AND I ¢ = 14 THEN 454 
Te [> = 15 AND I ¢ = 16 THEN 468 
PRINT " "sF#(17): GOTO 474 

DRINT " "sFe¢(18): GOTG 478 

PRINT " "sF$(19) 

IF RX = 1 THEN RETURN 

NEXT 

REM VARIABLE RX FOR PRINT ELEMENTS 
FOR I = 1 TO G6: PRINT : NEXT :TT = TT 
+ SM 

GOSUR 219%: HOME :C = @:sGK = 
PRINT "YOU SHOULD BE ALL SET, "sN% 
TT = TT - iii: GOSUB Fig@sRX = 1 
REM GET CUSTOMERS 
C= INT ¢ RND (1) * 14 + 1) 

PRINT N&3", YOU NOW HAVE "3C;5" 
CUSTOMER (S) " 

PRINT "GETTING ONTO MY ELEVATOR. " 
REM GET C RESPONSES 

= | 


REM FLOOR NUMBER 
= INT (¢ RND (1) * 14 + ©&) 


F(I) = Fil = 1+ 1 


IF I ¢ = C THEN 39 
REM FLOOR TITLES 
FOR I =1 TOC 


GS(I) = FSt{F(l)) 
KOCFCI)) = KOCFC(I)) + 1 


NEXT 
GOSUR 219@:s PRINT 


67@ PRINT "THE CUSTOMER’S DESTINATIONS:" 
:FL = 1 

68@ PRINT : FOR I = FL TOC 

6924 PRINT GSCI) 3""35 

74@ F = FCT) 

7i@ IF F >} = 2# AND F ¢ = 5 THEN 762 

7oM@ IF F >) = 11 AND F ¢ = 14 THEN 774@ 

73@ IF F >} = 15 AND F ¢ = 16 THEN 78a 

744 PRINT " FLOOR" 

75a NEXT +: GOTO 79 

76@ GOSUB 444: GOTO 75a 

774 GOSUEB 45a: GOTO 75a 

780 GOSUR 464: GOTO 75a 

734 GOSUBR 215 

Baa HOME 

G§1i@ PRINT "PRESS «(UDO FOR «(UP>" 

Bz PRINT "PRESS (D> FOR (DOWN) "” 

83a PRINT "THEN ENTER THE FLOGR NUMBER" 

B44 NN = @: REM DIRECTION 

85@ POKE ( - 16368),@: GOSUB 2164 

B86@ D = A: POKE ( - 16368),@: IF D = &5 

THEN Dt = "UP": GOTO 87a 

865 IF D = 68 THEN D# = "DOWN": GOTO 874 

B68 GOTO 35a 

87@ PRINT "DIRECTION: "sD 

&8@ PRINT "FLOOR NUMBER": 

8354 INPUT FR 

B93 VTAB if: HTABR 15:PRINT "PLEASE WAIT...” 

895 IF FR = 1 AND TF = @ THEN 128 

94a IF FR ¢( 1 OR FR > 16 THEN Sma 

945 IF FR = TF THEN 1284 

3ia@ IF FR ¢ TF AND Dt = "UP" THEN 1t26a 

915 IF FR > TF AND D& = "DOWN" THEN V = lL: 
GOTO 126¢@ 

92@ GOSUB 219M: HOME : REM PAUSE BEFORE 
START 

934 IF DS = "UP" THEN 97% 

94@ IF Dé = "DOWN" THEN 1@4a 

Jo@ PRINT "SELECT A DIRECTION, "“sNés"itn 

964 PRINT : GOTO Bia 

374 REM UP 

38a IF TF > = 17 THEN ia@sa 

934 GOTO 13a 

14@a PRINT "YOU ARE ON THE "3 T$3:" FLOOR, 
"ens 

141@ PRINT "YOU CAN NOT GO ANY "sH$s" tin 

1¥ea GOTO 36a 

1gsa T$ = "TORP":sH$ = "HIGHER": GOTO ianaa 
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Lia 
1MSa 
imee 
1471 
14a 


1a@8s 
1aga 
Lia 
1112 
112 
113a@ 
114 
115 


ro py fer Ta Ma fia fis 


Jat fat bt f+ fd pet ie pd 


no Ta Ta 


139 
14a 
1414 
i4ca 
143 
1444 
145% 
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TF TF ¢ = 1 THEN 1462 

GOTO 17 
TS = "BOTTOM" sH$ = "LOWER": GOTO 1a 
REM DOWN CONTINUED MOVEMENT 
F5 = P + BsNN = 1: IF FS > &@ THEN FS 
= 22 

IF P > = 2&@ THEN GOTO 119 

VTAB Ps: HTAR 2a: PRINT FF 

FOR T = 1 TO 4@: NEXT 

VTAR Ps HYAR 2a: PRINT "sp = p+ i 
IF P ¢ > FS THEN 185 


REM CONTINUE IF NOT ON FLOOR 


IF TF ¢ 
GOTH ism 
FS FS + 
IF P } 
GOTO 1a9a 
VTABR Pe HT 
FO = P + &: 
GOTO 1aga 


heer 
wus J 


= vA 


rir ha 
FN Ltt ui 


> FR THEN 1162 


2a THEN 1199 

AR EM: PRINT " ":p = 
FF = FF - 1:TF = TF - 
SED IN ARRLE PROGRAM 


REM NOT USED IN APPLE PROGRAM 


IF NN = 1 
GOTO 134@ 
PRINT "IF 
IF V 1 7 
PRINT "HIG 
GOTO i292 


THEN 110% 


WANTING TO 
HEN V @is 
HER NUMBER 


GO ":De;", 
PRINT 
THAN THIS FLOOR" 


"USE 


USE A" 
A 


PRINT "YOU ARE ON THAT FLOOR," sNee"!'t" 


GOSUB #192 
REM UP MO 
IF TF = 2 
FS5 =P ~ B: 


: GOTO Saga 

VEMENT 

THEN 1462 
IF FS ¢ 


4 


THEN FS 


REM NOT USED IN APPLE PROGRAM 


IF F 
VTAB P: HT 
FOR T = 1 
VTAER FP: HT 
IF P ¢ 3 


( = 


4 
AR 
TO 
AE 


FS 


THEN GOTG 
He’: PRINT 
ols NEXT 
cts PRINT 
THEN 13c5 


143 
FF 


"sp 


REM CONTINUE IF NOT ON FLOOR 


IF TF <¢ 
GOTO 152 
FS = FS - 7 
IF P ¢ 
GOTO 1325 
VTAR Ps HT 


I 


q 


GOTO 1325 


4 THEN 143@ 


AH Els: 


> FR THEN i142 


PRINT " 
FS = P ~ O:FF = FF + 1:TF 


"sp 
TF 


me Ti 
aS) 


+ 


1464 
147 
1a 
1514 
15a 
1334 
154@ 
LSS 
1S6u 
1574 
138u 
1594 
16aa 
1614 
1628 
163% 


1642 
165% 
166@ 
167 
168 
1694 


171d 


171 
1724 
1738 
1742 
1754 
1764 
177@ 
1775 
178@ 
17312 
i79S 
18a 
1814 
1815 


1824 
1832 
1842 
185@ 
186a 
1865 
1874 


TF = 1:P = 12:FF = 1 
FS = P - 7: GOTO 1325 
REM ON FLOOR REQUESTED 
REM NOT USED IN APPLE PROGRAM 
VTAB P: HTAHR 22: PRINT FF: GOTO 154a 
VTAR BP: HTAR 22: PRINT "1"; 
FOR I=1i1T0C 
IF FR = F(I) THEN 157@ 
NEXT :KO(FR) = KO(FR) - KG: GOTO 16aa 
PA = PA + 18:KG = KG + 1 
FCI) = @:XX = i 
GOTO 1564 
REM DID CUSTOMERS WANT OFF HERE? 
IF XX = @ THEN 163@ 
XX = @: GOTO 1772 
PRINT N$3;", NO CUSTOMERS WANTED TO 
GET OFF" 
PRINT "ON THIS FLOOR...":NC = NC + 1 
REM MORE CUSTOMERS STEPPING GN 
IF FZ = 1 OR FR = 1 THEN AA = t:FZ = @ 
IF AA = 1 THEN 1692 
GOTO 1730 
YU = INT ( RND (1) * 5 + 1)2V¥Y = C:C = 
C + YU:C2 = YU 
IF C >) = 1@ THEN HV = i: = C - C#: 
GOTO i730 
REM GET DESTINATIONS 
GOTO 18aa 
REM CONTINUE IF NOT FINISHED 
KG = @: IF GK > = C THEN 194@ 
GOSUB 219a 
GOTO aaa 
KG = KG + KO(FR) :KO(FR) = @ 
PRINT KG;" CUSTOMERS JUST" 
PRINT "STEPPED OFF MY ELEVATOR, ": 
PRINT NS:"!": GOSUB 27aa 
GK = GK + KG 
REM YY MORE DESTINATIONS 
YU = ABS (C - YY): IF GK )C THEN 1942 
IF YU ¢ = @ THEN PRINT "NO ONE GOT 
ON.": GOTO 23aa 
PRINT N&:", YOU JUST HAD "sYU;" MORE” 
PRINT "CUSTOMERS STEP ONTO THE" 
PRINT "ELEVATOR. THE DESTINATION(S):" 
KG = @: PRINT : FOR I= yY +170C 
F = INT ¢ RND (1) * 16 + 1) 
IF F = TF THEN i186a 
IF F = i THEN F#(1) = "GROUND":FZ = 1 


be 


443 


1875 KO(F) = KOCF) + 1 

186@ FCI) = Fs NEXT : REM FLOORS 

1892 REM TITLE GF FLOORS 

19a@@ FOR I= YY +i TOC 

191M GSCI) = FS(FC(1)): NEXT 

1920 FL = YY + 1 

193a GOTO 6aa 

194@ REM STOP/CONT 

1952 PRINT : PRINT "YOU HAVE NOW 
COLLECTED: " 

196@ PRINT "$":PA: PRINT : GOSUE 27194 

1965 PRINT : GOSUE =#5aa 

197@ IF JV = 1 O0R GK >) = C THEN 19934 

198% GOSUE 2#19@: GOTO S@a@: REM ALL NOT OFF 

199@ PRINT : GOTO #300 

zaaa@ REM DATA FOR FLOGRS 

2aia@ DATA WOMENS, MENS, CHILDRENS, INFANTS 

saea DATA TOYS, CARPETS, COMPUTERS 

fa32 DATA APPLIANCES, FURNITURE, HARDWARE 

2242 DATA HOBBY, AUTO, OFFICE 

S50 DATA BATHROUM, BEDROOM 

Z264@ DATA CLOTHES, SUPPLIES, ITEMS 

2072 REM DATA ELEMENT 17 WILL BE USED 

Zea REM WITH ELEMENTS 2-5 

279@ REM DATA ELEMENT 18 WILL BE USED 

Dima REM WITH ELEMENTS 11-14 

f1ia@ REM DATA ELEMENT 19 WILL BE USED 

12a REM WITH ELEMENTS 15 & 16 

2i5@ PRINT : PRINT "PRESS A KEY...” 

H16@ A= PEEK ( — 16384) - i128 

2172 IF A ( = 32 THEN 21i6a 

2182 POKE ¢( — 16368),@: RETURN 

219@ REM TIME LOOP 

2caa FOR T = 1 TO TT: NEXT 

S21@ GOTQ #188 

a3aa REM CONTINUE? 

231@ PRINT "WOULD YOU LIKE TQ TAKE ON” 

S3z@ PRINT "SOME MORE CUSTOMERS, "sNé;"7" 

e33@ PRINT “YOUR TOTAL EARNINGS SO FAR:"; 

2344 PRINT "$":PAs 

235 INPUT At 

2362 IF A$ ¢ > "Y" AND AS ¢ ) "YES" THEN 
= 4120 

237@ TT = 2a@a:JV = @: PRINT 

238@ PRINT "YOU ARE ON FLOOR ";TF 

2390 FOR I = i TO 16:KP = KP + KG): 
NEXT IF KP >) @ THEN GOTO 173@ 

£395 NC = @: GOTO 49a 


PRINT 

PRINT "END OF ELEVATOR" 

END 

REM POINT SCALE/PAY DEDUCTION 

IF NC ¢ = @ THEN NC = @: RETURN 
PRINT "YOU MADE":NC;" STOPS THAT WERE” 
PRINT “NOT NECESSARY, ";N#:". YoU" 
PRINT "WILL TAKE @ DEDUCTION IN PAY” 
PRINT "OF $22.@0 FOR EACH ONE OF" 
PRINT "THOSE STOPS, TOTAL”; 


NN = NC * 2@: PRINT °$"sNN 
PRINT "LEAVING YOU ": 


PA = PA — NN 
NC = Q 
PRINT "$"3PA: GOSUB 219a 
RETURN 
REM ANY TIPS? 
IF KG ¢ = 1 THEN RETURN 
QA = INT ( RND (1) * & + 1) 
IF AA = 1 THEN RETURN 
TI = INT ¢ RND (1) * 1@@ + 1) 
PA = PA + TI 
PRINT 
PRINT "YOU'RE IN LUCK, "sN#:", A” 
PRINT "NICE CUSTOMER JUST GAVE " 
PRINT "YOU A TIP OF"; 
PRINT "$"sTI 
GOSUB 219@: RETURN 
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Farewell for the Apple Il 


ig 
22 
re) 
3 
35 
42 
45 
wl 
ao 
6a 
oy 
7@ 


73 
Be 
85 
92 
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REM PROGRAM TITLE: FAREWELL 


HOME HTABR ie: PRINT "#*# FAREWELL ###" 
PRINT 

INPUT "NUMBER PLAYING (1-14) "5A 

IF A ¢ 1 GQGRA> 14 THEN 25 

PRINT "THE "3A3" PLAYERS’ FIRST NAMES:” 
FOR I = 1T0A 

INPUT @$(I)3 NEXT 

PRINT 3:U = i 

PRINT "ANY OF YOU NEED TO SEE" 

INPUT "THE INSTRUCTIONS? "3x 

IF XS ¢ > "VY" AND X# ¢ > "YES" THEN 
1a 

PRINT 

PRINT "READ CAREFULLY, IT COULD MEAN" 
PRINT "YOUR LIFE (OR THE GAME!!)..." 
PRINT "EACH PLAYER WILL SEE AND 

STUDY A" 

PRINT "MATRIX OF 6 BY S SQUARES 
(POSITIONS) " 

PRINT "THESE WILL RANGE FROM THE " 
PRINT "LETTERS A THROUGH Z WITH" 
PRINT "FOUR SPACES ELANK. TO PLAY:" 
PRINT "THE COMPUTER WILL SELECT FIVE" 
PRINT "POSITIONS AND PLACE COBRRAS" 
PRINT "WITHIN EACH. THE COMPUTER WILL" 
DRINT "SHOW YOU WHERE THREE OF THE 


COBRAS ARE" 


PRINT : INPUT “PRESS RETURN, PLEASE: "sX4 
HOME 

PRINT "NOW THE COMPUTER WILL SELECT aA" 
PRINT "POSITIGN AND FLASH AN ASTERISK" 
PRINT "THERE. EACH PLAYER MUST ENTER 
FROM” 

PRINT "MEMORY THE NUMBER WHICH WAS IN 
THAT" 

PRINT "POSITION. IF CORRECT, THE PLAYER" 
PRINT "GAINS 1@0@ POINTS: IF INCORRECT, 
THE" 

PRINT "PLAYER LOSES 1@a@@ POINTS. AND.. 
IF you" 

PRINT "SELECT A POSITION WHERE 

THERE'S A” 

ORINT "COBRA... YOU'RE OUT OF THE GAME, 
DEAD!" 


ro fa md Fer 
fo fa Ta 
mous ch 


PRINT "SELECTION WILL CONTINUE FOR AS 
LONG AS" 

PRINT "EACH PLAYER WANTS OR UNTIL 
TWENTY-ONE" 

PRINT “POSITIONS HAVE BEEN ELIMINATED. ” 
INPUT "PRESS RETURN, PLEASEs:"sX$s 
GOSUB 22¢ 

HOME : GOTO saa 

DIM L$(31),PR(S1),PC(31),L¢31) 

REM LETTERS? 

IF SL ¢ > @ THEN PRINT "ARRANGING 
LETTERS..." 
L= 65:I = 1:PZ = 10a@ 
L$ «I) CHRS (L)dslL¢I) = I 

IF I 27 THEN 235 

I = ] teL = L + 1: GOTO 235 

GOTO 235 

REM SORT LETTERS RANDOMLY 
J=ti 

N= INT ¢ RND (1) * (I - 41) + 21) 

IF L(N) = @ THEN 265 

Lé¢(J>) = CHRS (N + 64) 
L(N) = @:J = J + 1 

IF J = I THEN RETURN 

GOTO cé6s 

REM POSITIONS 
PC = S:PR = S:I = 1:PL = PR+ 2:35 = 


+ i il 


u 


t:PK = PC 
PR(I) = PREPC(I) = PC:sL¢I) = I 
PC = PC + 6:1 = T+ i:sJ= J + i 
IF I = 27 THEN 345 
IF J = 7 THEN 335 
GOTO 31@ 


PR = PL:PL = PL + @:J = 1:PC = PR 
GOTO 314 
REM THE REMAINING FOUR 
L$¢I) = " "SPRt(I) = PRsPC(I) = PCsLtiI)= I 
PC = PC + G:I = I + isJ = J + 1 
IF J = 7 THEN 37@ 
GOTO 354 
REM MOVE THE FOUR BLANKS 
I= i:tJ = isl = 27 
N= INT ¢ RND (1) * &6& + 1) 
IF L(N) = @ THEN 38@ 
F$ = LO(N) tLS(N) = L#(L) 
L$({L) = F#:L(N) = @ 
lL =bL+is IF L = 31 THEN 41a 
GOTO sé 
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REM NOW PRINT LETTERS 


HOME : FOR [T = 1 TO su 

VTAB PR(I): HTAR PCI): PRINT L&¢I): 
NEXT 

REM FINAL GRAPHICS 
K=e¢ 

FOR Y = 4 70 13 

VTAB Y: HTAR X: PRINT "@"3s NEXT 
X= X + & 

IF X > = 414 THEN 46% 

GOTO 435 

FOR X = & TQ 38 

VTAB VY: HTAR X: PRINT "@"s: NEXT 
Y=FrYre 


rut Tt 


IF Y¥ = THEN 492 
IF Y = & THEN 498 
GOTO 464 


REM COBRA POSITIONS/PLAYER 
C = 1: VTAB 14: HTAB 5: PRINT "PLAYER: 
"Os CU) 
N= INT ¢ RND (1) #® (1 - 5) + 1) 
IF L(N) = @ OR L(N) = 1@@ THEN Saq 
CHi(C) = PR(N) :CBE(C) = PC(N)D EFS = 
L&(N):CB(C) = FS 
L$(N) = CHR (42) :L(N) = 1a@a 
IF C = § THEN 56a 
IF C ¢ = 3 THEN GOSUE 53a 
C=C + i: GOTO Saa 
XX = @: REM DEFINE 3 (1 FOR COMPUTER) 
VTAB PR(N): HTAER PC(N): PRINT L&(N) 3: 
FOR T = 1 TO 1@@: NEXT 
VTAR PRIN): HTAER PC(N): PRINT " "es: 
FOR T = 1 TO S@: NEXT 
VTAB PR(N): HTAB PC(N): PRINT FS: 
IF XX = @ THEN XX = XX + 4: GOTO 535 
RETURN 
REM COMPUTER SELECT/IF NOT DONE 
SL = 1 
IF SL) = #2 THEN iaaa 
GOSUB izaa 
VTAB 16: HTAB 5S: PRINT "I WILL SELECT 
A POSITION:" 
N= INT ¢ RND (1) * (L - 1) + 4): 
GOSUB 1242 
IF L(N) = @ GR LIN) = 1@@ THEN 59a 
Fé = LS(ND: IF SL = i THEN GOSUE 53a 
Ct = F$:NU = N: GOSUB 13@@: GOSUB izaa 


VTAB 16: HTAR 3S: PRINT "SELECT A 
POSITION BY LETTER ONLY, "3 

VTABR 17: HTAB GS: PRINT Q$(U) 
INPUT LS 

GOSUB 124@: GOSUR ic@a 

= 1 

IF L$ = L#¢{TI) THEN 665 


=I+i 

IF I > = $1 THEN 675 
GOTO 635 

= I:F$ = L$: GOSUE S34 
GOTO saa 


REM CORRA POSITION OR BLANK 
GOSUB 1200 
GOSUB 12@Q 


FOR IT =1 7T05 
IF L&® = C$(I) THEN 735 
NEXT 


VTAH 16: HTABR Ss: PRINT "YOU CANNOT 
SELECT A BLANK!!!" 

GOSUB 124@: GOSUB 1i2ad@: GOTO 6124 

REM COBRA 

VTAB 16: HTAR Ss: PRINT "YOU? RE DEAD, 
"sO (U) su rten 

VTABR 17: HTAR S: PRINT "THAT IS A 
COBRA POSITION!!!" 

VTAB 18: HTABR S: PRINT "** FAREWELL **” 
: GOSUBR 124@a 


ZZ = i: GOSUE 12@@: GOTO 1acw 


GOSUB 1248: GOSUB lcd: IF Lé «¢ > CH 
THEN Fag 

VTAB 16: HTAR GS: PRINT "CONGRATULATIONS 
"sQ$ (Ud 3°..." 

VTAB 17: HTAR S: PRINT "YOUVE JUST 
GAINED ";PZ5 

PRINT "POINTS! !" 

GOSUB i2¢4@: GOSUE lead 

REM PINTS/CONTINUE 


WCU) = WCU) + PZ 


VTAR PR(NU): HTABR PC(NU): PRINT " "3 
VTAB 19: HTAB Zi: PRINT "TOTAL POINTS: 
"sWCU) 

3 


GOSUBR 124@: GOSUE izud 

VTAB 16: HTAB Ss: PRINT "YOU NOW HAVE 
"sWiU)s" POINTS..." 

VTAR 17: HTABR S: PRINT "...CONTINUE 
(Y/N) "5 
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BS5 INPUT X#: IF X$ = "N" THEN i@ed 

86a SL = SL + isL (NU) = @sLe(Nu) = " " 

865 GOTO 575 

9a2 REM WRONG POSITION 

945 VTAH 16: HTAB Ss: PRINT "WRONG 
POSITION, "s@#(U) 

91a VTAB 17: HTAB S: PRINT "YOU ARE NOW 
MINUS "sPZs 

915 PRINT " POINTS...": GOSUB 124 

924 GOSUB lEaMeWCU) = WU) - PZ 

925 VTAB 13: HTAB 2a: PRINT "TOTAL POINTS: 
"sWu) 

93a GOTO 614 

iawa@a REM FINAL /ANOTHER PLAYER 

12za5 GOSUB 124@: GOSUB i2ze 

igi@ VTABR 16: HTABR S: PRINT "THAT'S IT, 
"eQ$ CU)". YOU VE" 

1aLS vine 17: HTAB S: PRINT "REACHED THE 

vee VTAR 18: HTAB Ss: PRINT "PRESS RETURN, 
DLEOSE:"s 

ies INPUT X$: HOME 

1a3a@ IF ZZ = 1 THEN ZZ = @: GOTO 144 

1435 TiUu) = WCU) 

LA4a =U +i: IF A ¢ U THEN 1i1laa 

1745 PRINT O$(U)3", YOU ARE NEXT..." 

1@5@ PRINT "PRESS RETURN WHEN READY:": 

1255 INPUT Xs: HOME 

i@6@ GOSUB 225: GOTO Baa 

11@@ REM FINAL/SCORE RESULTS 

1145 PRINT "PLAYERS AND POINTS:" 

111@ FOR I =i TOA 

1115 PRINT O$(1T)3" TOTAL POINTS: ":T(¢T) 

Lica NEXT 

1125 PRINT 

1134 PRINT "PROGRAM TERMINATED..." 

1135 END 

127@ REM CLEAR PRINT AREA 

1210 VTAB 16: HTAB S: FOR X = 1 TO 3S: 
PRINT " "se: NEXT 

1@2@ VTAB 17: HTAB S: FOR X = 1 TO 3S: 
PRINT " "ss: NEXT 

123@ RETURN 

1244 REM TIME DELAY 

1254 FOR TI = 1 TO 12@@: NEXT 

i260 RETURN 

13@@ REM FLASH SELECTION COURSE 

13@5 FOR I = 1 TO NU 


1318 
1315 
1S2@ 
1325 
133@ 
1335 


IF L&¢(1) = "*" 


VTAR PR(I): 


HTAB PC(I): 


OR L(t) =" 


PRINT "x": 


FOR TI = 1 TO i@: NEXT TI 


VTABR PR(T): 
NEXT I 
RETURN 


HTAB PCI): 


PRINT L&I): 


" THEN 1338 
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Insomnia for the Apple Il 


1@ REM PROGRAM TITLE: INSO 
e CLEAR : HOME 

S@ PRINT "INSOMNIA" 

4@ PRINT 


MNIA 


~Z2 PRINT "SO YOU ARE HAVING PROBLEMS" 


64 PRINT "SLEEPING? JUST SIT BACK, KEEP" 


7@ PRINT "YOUR EYES ON THE SCREEN AND” 


8@ INPUT "PRESS RETURN:"3;X 
92 A = 20:W = a 


i@@o PRINT =: HTABR As: PRINT ": 


11@ HTAB A - i: PRINT "s"s: 


$: HOME 


HTAR A + ls 


1) 


PRINT ":"2 
i@@ I = INT ( RND (1) * & + 

i3@ IF I = 1 THEN i6@ 

142 IF A>) = 39 THEN 17a 

i5@ A= A+ =: GOTO 18a 

i609 IF A ¢ = 1@ THEN i5a 
17aA=A-@ 

i@@W=W+ i: IF W = 15 THEN 352 
192 IF W = 7@@ THEN 21a 

“9a GOTO 142 

fia IF Wt = @@@ THEN =3a 

22m GOTO 25a 


242 W= W+ 1: GOTO 21a 

25@ PRINT "GETTING SLEEPY N 

“6 FOR I = 1 TG W: NEXT 

27a IF W ¢ = 814 THEN 290 

saa GOTO saa 

290 PRINT :W = W + 1: GOTO 

saa FOR X = 1 TO 4a 

31@ VTAER i: HTAB X: PRINT " 

HTAR X: PRINT "@": NEXT 

ca FOR X = 1 TG #3 

3@ oOYTAR X: HTAB i: PRINT " 
HTAR 40: PRINT "@": NEX 

34a FOR I = 1 TO W: NEXT :W 

S5@ VTAB i6: HTAB 22 

36@ PRINT "KEEP EYES HERE!" 

378 GOSUB 6a 

gaa GOTO 192 

4@@ L = SB:AR = S:AC = 2:xR 
= AR 

4i@ FOR l= AC TO AC +L 

420 VTAR AR: HTAR I: PRINT 


QW?" 


a7 

fs VTAR & 
d's VTAR 

T 


= @: GOTO 4a 


oe Fb 
¥* 3 


43@ VTAR XR: HTAH I + 4: PRINT "#" 

44a NEXT : FOR I = AC TO AC +L 

454 VTAB AR: HTAH I: PRINT " "5 

46@ VTAR XR: HTAH IT + 4: PRINT " “ss 

470 AR = AR + 1:XR XR - Ls IF OR 
THEN 3 

464 IF xk = Y THEN Sam 

49% GOTO 414 

at UIT UWWhUCUlUCU = UAC HEN Ge 

Sida GOSUB 64a: GOTO 61a 

vet W= Wt Lt IF W= 25 THEN GOSUA Baa 

See GOTO 4a 

sot IF W > 1 THEN 48 

5424 VTAB AR: HTAEBR 14 

So@ PRINT "STARE AT THIS LOCATION"; 

564 GOSUB 6a 

57@ GOTO 484 

58a Ae = AR - 6: IF AR < Z THEN AR = 1} 

SAS Al = AC + ES: IF Al > 4 THEN AL = 4 

339@ PRINT "NOW FOLLOW THE HARS": 

6vz FOR I = 1 TO i@@a@: NEXT : RETURN 

&Bia@ HOME 

B24 PRINT "IF YOU ARE NOT GETTING SLEEPY" 

63@ PRINT "RY NOW, YOU'RE A HOPELESS” 

644@ PRINT "CASE!" 

65a GOSUB Gada: PRINT 

664 PRINT "THIS IS THE LAST PHASE OF” 

674 PRINT “INSOMNIA. IF IT FAILS, RUN" 

68@ PRINT "THE ENTIRE PROGRAM ONCE” 

6924 PRINT "AGAIN..." 

74a@ GOSUER Ets PRINT 

7i@ PRINT "KEEP YOUR EYES ON THE MOVING” 

72@ PRINT "BLOCK, THINKING TO YOURSELF” 

73@ PRINT "?’I AM GETTING SLEEPY....7?" 

74@ INPUT "PRESS RETURN: "3X¢:W = @ 

75@ HOME :PC = PC + Sa 

76@ Y = c@: FOR X = 6 TD 9 

774 \VTAB X: HTAR Yt PRINT "@@": NEXT 

78Q PR = xX:PC = = 

7394 GOSUB liad 

Bat FOR X = 6 TO 93 

8ia@ VTABR X: HTABR YY: PRINT "  ": NEXT 

B2@ IF Z = 1 THEN 33a 

83a FOR X = 6 TO 3 

B4@ VTAB X: HTABR Y: PRINT "@@e"sY = Y —- i: 
NEXT 

65a GOSUB 112’ 

B64 PC = PC - 6 


Hoong 
e 
ot 
Mm 
oo 
— 


Hooft 
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87 
88a 
89 
eral ra 


Jig 
92 
93 
940 
9S’ 


36@ 


96s 
974 
982 
ee be 1 
1 dai 
11g 
LacZ 
Las 
1442 
1S 
1M6e 


17 
LasBea 


ase 
11a 
11a@s 
111@ 
1124 
tics 
113 
1158 
1155 
1162 
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GOSUB 11a 
Y = 2£@ 
FOR X = 6&6 TO 3 
VTABR X: HTAB Ys PRINT " "sY¥Y = ¥ - 
Ls NEAT 
GOSUB 1122 
Z= 1: GOTO 76a 
GOSUB 112 
FOR X = 6 T0 9 
VTAB X: HTAB Y: PRINT "@e"sy¥ = ¥Y + Ls 
NEXT 
PC = PC + S: VTAR PR: HTAR PC: PRINT 
Nig! 
VTABR PR + 1: HTABR PC: PRINT "ee" 
Yee: FOR X = 6 T0 9 
VTA X: HTAB YY: PRINT " " 
Y= Y + ls NEXT 
GOSUR 112@ 
W=Wet i 
IF W= 3S THEN 145a 
TF W = S@ THEN 11508 
Z = &@: GOTO 76a 
FOR X = le TO £7 
VTAR 6: HTAR Xs PRINT "@": VTAR le: 
HTAB Xs PRINT "@"s NEXT 
FOR X = 6 TO ill 
VTAB X: HTABR ies PRINT "@": VITAR X: 
HTAB &7: PRINT "He" s NEXT 
GOTO ias@ 
VTAR PR: HTAKR PCs PRINT "wie" 
VTAR PR + i: HTAR PC: PRINT "Ga" 
RETURN 
VTAR PR: HTAR PC: PRINT " " 
VTAKR PR + i: HTAR PCs PRINT " " 
RETURN 
REM END OF PROGRAM 
VTABR 6: HTAB a: PRINT "ee" 
GOTO 116@ REM CONTINUGUS LOOP AT END 


Rainy Daze for the Apple Il 


ia 
2a 
3u 
42 


AR = 


REM PROGRAM TITLE:RAINY DAZE 


HOME 

INPUT “INSTRUCTIONS? "5AS 

INPUT "HOW MANY PLAYERS? "3P: IF P = @ 
THEN 4@ 
PRINT "THE ":Ps" PLAYERS’? INITIALS: "s 
TF P > = 11 THEN 2@ 
FOR I = 1 70 P 

INPUT N®(I): NEXT 

IF AS ¢ > "Y¥" AND AS ( D> "YES" 
THEN 3412 
REM INSTRUCTIONS 
PRINT "THIS PROGRAM IS DESIGNED TQ" 
PRINT "HELP YOU THROUGH YOUR WORST” 
PRINT "DAYS, BY MAKING THEM WORSE! !" 
PRINT "ACTUALLY, THIS PROGRAM WILL” 
PRINT "TEST YOUR ABILITY TO FOLLOW" 
PRINT "NUMBERS, SOMETIMES IN SEQUENCE. " 
PRINT "THE NUMERALS 1 THROUGH 664 WILL” 
PRINT "RACE ACROSS AND FILL THE VIDED. ” 
PRINT "WHEN A NUMERAL APPEARS THAT IS" 
PRINT "NOT SUPPOSED TO BE THERE, HOLD” 
PRINT "THE RIGHT ARROW KEY FOR A SHORT" 
PRINT "TIME UNTIL THAT NUMERAL IS” 
PRINT "BLOCKED OUT. " 

PRINT 

PRINT 

INPUT "RETURN" 3 X% 

HOME 

PRINT "POINTS WILL BE GIVEN ON 

THE BASIS" 

PRINT "OF HOW MANY OUT-OF-SEQUENCE 
NUMERALS" 

PRINT "YOU HAVE DETECTED AT THE END OF" 
PRINT "THE COUNT, 664." 

PRINT "REMEMBER TO KEEP GOOD EYE CONTACT” 
PRINT "WITH THE SCREEN..."3: PRINT 

= j 

IF P = 1 THEN 39@ 


PRINT N&(I)s", 


INPUT 


YOU WILL NOW PLAY:" 
"PRESS RETURN, PLEASE:"3X% 


GOTO 41a 


PRINT 
INPUT 


HOME :N = 
1:AC = 


"WHEN READY, "sN#(P)5", 

"THE RETURN KEY:":X$ 

QeNl = @:TT = SaQ 
1:ABR = ACM = Sa@:L = 


PRESS” 


2e:G6 = @ 


43@ K = PEEK ¢( - 16384) - 128: POKE ¢ - 


442 
450 
462 
478 
482 
49@ 


wg 
Jig 
vila 
pa 2) 
SAM 
wuld 
SO 
w/a 
aH 
rare 174 


ohm 
Dare 


61 


622 
63 
635 
64a 
645 


65 
66 
67a 
68a 
69a 
7a 
71 
72Q 
738 
740 
rae! 
76a 


16368),@: GOTO Sos 


VTABR AR: HTAR AC: PRINT Ns 

FOR T = 1 TO TT + TT 

NEXT sAC = AC + S&S 

IF AC > = M THEN 45@ 

GOTO 43a 
AR = L:AC = ABsL = L + i:TT = TT - 
iS:6 = @ 

IF L >) = 24 THEN See 

GOTO 43a 

FOR T = 1 TO 1i@@s: NEXT 

HOME 

GOTO 42a 

REM CHANGE OR LEAVE 

IF K = i THEN NJ = 1: GOTG 694 
N= N + 1 
Ni = Ni + is IF Ni ¢ = & THEN 614 
J = jINT ¢ RND (1) * 2): IF G = 1 THEN 
J = @:N = Ni 

Ir J = 1 THEN N=N 4 1:6 = 1 

IF K = @ AND ABS (N -— Ni) ¢ > W@W THEN 
Y=Y+ i 

IF NJ = 1 THEN NJ = @: GOTO 648 

IF Ni > = 661 THEN &8@aa 

GOTO 44@ 
Ni = Ni + i 

IF AC - & ¢( = @ THEN VTAB AR - i: 
HTAR 44 - AC - 13: PRINT "@eeee”":s: GOTO 
VTAB ARs HTAR AC - S: PRINT "“GeeRG" ; 
REM PAUSE BEFORE CONT. 

FOR T = i TO e@@: NEXT :K = @ 

GOTO 44 

TF ABS (N ~ Ni) = @ THEN 71a 
Y=uY¥n- ai: GOTO 72R 


Y=zY+i 

GOSUBR 97@:A1l1 = PEEK (Pl + (AC - B)) 
Ac = PEEK (Pil + (AC - 9)) 

IF Al = 192 AND AG = 192 THEN 76a 
GOTO 622 


HOME <¥ = Ytre 

PRINT "QUIT HOLDING DOWN THE ARROW" 
PRINT "KEY, YOU MANTAC!H!!" 

FOR T = 1 TO emg: NEXT =: HOME : GOTO 
E22 
REM PLAYER ADVANCE 

Y¥(T) = Y:yY = @: HOME 

I= 1+ ji 


834 IF I} P THEN Ni = Ni - i: GOTO 85a 

B42 GOTO 36a 

B52 REM FINAL 

B6@ PRINT "PLAYERS AND THEIR POINTS” 

872 PRINT "ARE AS FOLLOWS:” 

88@ FOR I=i1 TOP 

892 PRINT NS{I)3" IDENTIFIED "s 

ga@ IF YY(I) = @ THEN PRINT "ALL 
NUMERALS. ": GOTO 93a 


Siw IF Y¥Y(I) ¢ @ THEN YY(I) = —- YY(T) 
92 PRINT Ni —- YY¢I)s" NUMERALS. ” 

93@ NEXT 

944 PRINT 

95@ PRINT "END OF PROGRAM" 

36@ END 


974 IF AR > 1 AND AR ( = 8 THEN Pi = AR 
* 128 + 896 


982 IF AR > = 9 AND AR ¢ = 16 THEN Pl 
= (AR - 8) * 128 + 3936 
93@ IF AR > = 17 AND AR ¢ = 2&4 THEN Pi 


= (AR - 16) * 128 + 376 
1maa@ RETURN 


457 


Lap-the-Track for the Apple Il 


REM PROGRAM TITLE: LAP THE TRACK 
CLEAR : HOME 

HTAH 1@: PRINT "-:-: LAP-THE-TRACK 
PRINT : DIM A$(15),A(15),LA(15),7T(15) 
INPUT "INSTRUCTONS?" Ag 

IF AS ( > “"Y" AND AS ( > "YES" THEN 
aaa 

PRINT "UP TO FIFTEEN PEOPLE BET ON 
FOUR MOVING" 

PRINT "SPOTS THAT ARE IN A FAST RACE" 
PRINT "TO THE FINISH. 9A COMPLETE RACE" 
PRINT : IF CE = i THEN 96a 

PRINT "WILL BE ABLE TO CHOOSE A LANE 
(1-4) * 

PRINT "AND MAKE A BET OF ANY DESIRED" 
PRINT “AMOUNT ON THAT LANE. IF THERE" 
PRINT "ARE NO WINNERS, THE COMPUTER 
WILL" 


mmr ber a mi Are “T° 
PRINT "PP LAUE i 2 


ITS CHOICE" 

PRINT "IN THE NEXT RACE. IF THE” 
PRINT "COMPUTER’S SPOT HAPPENS TO WIN" 
PRINT "IT WILL NOT TAKE THE MONEY:" 


PRINT "IT WILL JUST BET ON ANOTHER 
LANE. ” 


PRINT "SO, NO MATTER HOW YOU SLICE IT," 
PRINT "SOMEGNE IS BOUND TO WIN. (YOU 
CAN USE" 

PRINT "REAL MONEY IN THIS GAME IF YOU 
WISH. )" 

PRINT 

PRINT 

INPUT “HOW MANY WILL PLAY? ";& 

IF B ¢ 1 OR H > 14 THEN sca 

PRINT "INITIALS, PLEASE: "s; 

FOR I = 1708 

INPUT AS(I) : NEXT 

PRINT 

PRINT "YOU WILL NOW SELECT A LANE." 

= 1 

PRINT AS(I) 35": LANE NUMBER": 

INPUT LACT) 

IF LACT) ¢ 1 OR LACT) >) 4 THEN 39a 
PRINT "BET WHAT AMOUNT?" s 

INPUT HCI) 


I=I1+ti1 
IF I >) EB THEN 48 
PRINT 
GOTO 39a 
HOME : GOSUB i13@a@: IF ZZ = 1 THEN 51a 
PRINT "IF MORE THAN ONE PLAYER WINS" 
PRINT "(SELECTION OF SAME LANE), ALL 
MONEY" 
PRINT "WILL BE DIVIDED AS EQUALLY AS 
POSSIBLE." 
PRINT : IF CH = 1 THEN 36a 
GOSUB 1244: GOSUR 1344: GOSUH 1414 
FOR TU = 1 TO 22a: NEXT : HOME 
PRINT "PRESS RETURN TO START THE RACE:” 
INPUT AS: HOME =: GR 
REM OUTER TRACK 
COLOR= 8: FOR I = @ TO Se STEP 1m 
HLIN @,39 AT I 
HLIN @,39 AT I + 6 
VLIN I,I + 6 AT & 
VLIN I,1I + 6 AT 39 
NEXT 
REM SPOT LOCATIONS 
GOSUB 12@@sl = 1:1IR = 4:1C = 1 
LR¢L) = IRsLO(L) = ICsRR(L) = IR:ROI(L) 
= ICsPR(L) = IR —- S:PCtlL) = IC + Bae 
P(L) = a 
PR(1) = 21:PR(2) = PR(1)=PR(3) = 
eesPR(4) = PR(S):PC(i1) = 16:PpC(zZ) = 
S6:PC(3 ) = POCC1)sPC(4) = PCC(Z) 
IR = IR + i@: IF L >) = 4 THEN 68a 
L =L + 1: GOTO 65a 
FOR I =i Ta 4 
COLOR= 3 * I: PLOT LC¢(I),LR(I): NEXT 
REM START A RACE 
LP = @:PK = LR(1) + 1 


I= INT ¢ RND (1) * 4 + 1)8M = AES 
(I - &) 
COLOR= @: IF LO(I) >) = 34 THEN GOTO 
Laai2 
PLOT LO(I), LRTI) 
IF ABS (LC(I) - RCC(I)) >) = 29 THEN 
LAAe2 
LO(l) = LOCI) + INT ¢ RND (1) * tam + 1) 
COLOR= 3 * I: IF LCOC¢I) >} = 34 THEN 
GOTO 1aaa@ 
PLOT LO(I),LR(I) 
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77a 


78a 
79a 


795 
Bidz 


814 


B15 
Bi 
842 
B32 
B42 


845 
Baz 


BER 


865 
872 


B82 
B94 


895 
Fae 


91a 


915 
92 


920 
93a 
944 


945 
95@ 
96@ 


965 
97@ 
98 
985 
99@ 
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IF mM +t ¢ > T AND M+ 1 ¢ => S&S THEN 
73 

GOTO 82a 

COLOR= @: IF LO(M + 1) > = 34 THEN 
GOTO 1aaea 

PLOT LO(M + 1),LR(M + 1) 
LCO(mM + 1) = LO(M + 1) + INT ¢ RND 
(1) * 4 + 1) 

COLOR= 3 * (M+ 1): IF LO(M + 1) > = 
34 THEN GOTO 1aa@ 


GOSUR 2i@m@: PLOT LCO(M + 1),LR(M + 1) 
IF M- 1 ¢ >? IT AND M- 1 ¢ > & THEN 
GOTO 87a 

COLOR= @: IF LO(M - 1) >} = 34 THEN 
GOTO iaae@ 


PLOT LO(M — 1),LR(M - 1) 
LO(m - 1) = LC(M - 1) + INT ¢( RND 


(1) * 4 + 1) 


COLOR= (M - 1) * Ss IF LO(M ~- 1) ) 
= $4 THEN GOTO 1aa@@ 


GOSUB Fle@: PLOT LCC - G),LRGM - 1) 
IF M+ ee €¢ >) S&S AND M+ & ¢ > & THEN 
894 

GOTO 7zk 

COLOR= @: IF LO(M + £=) >) = 34 THEN 
GOTO iae@ea 


PLOT LO(M + 2),LR(M + =) 
LCO(M + 2) = LO(M + &) + INT ¢( RND (1) 
%*# 4 + 1) 

COLOR= (M + 2) * GS: IF LOCM + &) > 

= 35 THEN GOTO 1@aa@ 


GOSUB Sted: PLOT LO(M + 2),LR(M + &) 
COLOR= @: IF LCO(M) >) = 34 THEN GOTO 
12a 


PLOT LC(M), LROM) 


LO(M) = LO(M) + INT ¢ RND (1) * 4 + 1) 
COLOR= M * 3S: IF LO(M > = 34 THEN 
GOTO 18a@ 


GOSUBR #28@: PLOT LC(M),LR(M) 

GOTO 72a 

CH = @: TEXT : HOME : PRINT "THE 
COMPUTER WILL PLACE THE AMOUNT OF "; 
PRINT "$":0M; 

RF = INT ( RND (1) * 4 + 1) 

PRINT "ON LANE "RFs", " 
MN(RF) = MN(RF) + AM:AM = @ 

GOTO 51a 


LAA 


1@as 
1@1a 
1m2a 


143a 
1242 
1204 


COLOR= @: IF LC(I) > 
LCO¢I) = 38 
PLOT LO(I),LR‘¢I) 
LC(I) = ROI) 
LP¢(I) = LP(I) + 1:3 
PC (I): PRINT LPC(I) 
IF LP(I) > = 
GOTO 72a 
VTAB fi: HTAR i: 
i:"3 
VTAB 21: HTAH 2@: PRINT 
LANE ¢:"s 
VTAR ce: HTAR 1: 
oi" s 
VTAH 22: HTAR 2@: PRINT 
4s's 
RETURN 
REM AMOUNTS BET PER LANE 
VTAH 21: HTAH 1: 
VTABR 21: HTAB 2a: PRINT 
VTAB 2c: HTABR 1: 
VTAB 22: HTABR cad: PRINT 
RETURN 
REM AMOUNTS ON LANES 
= 1 
FOR I = 17T08 
TF LACI) = T THEN 135 
NEXT I: GOTO 1378 
MNCT) = MNCT) + RCT) 
GOTO 1344 
= T + 1 
IF T >) = & THEN 1408 
GOTO 1524 
RETURN 
REM PRINT AMOUNTS 
AAS = "g" 
= i:Fi = 21:Fe = 
VTAB Fi: HTAB Fes 
= I+ il: IF I = 
33 
IF I = 3 THEN Fil 
IF I = 4 THEN Fi 
IF I >} = & THEN R 
GOTO 144 
REM FINISH 
WW = 1 
FOR TU = 1 TO 15@@: NEXT 


VTABR PR(I)s 
1@ THEN 15a@ 


"LAPS — LANE 


"LAPS - LANE 


"LAPS —- LANE 


Ei a 


roa ita 
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WW = 


WW = 


Wi = 4:We 


We = 


AM = 


CR = i: 


TEXT : HOME : 
"WINNER" : 
FOR TU = 
NEXT 

VTAB 3: HTAB 15: PRINT " oF 
IF WH) = 6 THEN 158@ 

WH + 1: GOTO 152@ 

REM PLAYER LANE SELECT 


VTABR 3S: HTAR iS: PRINT 


1 TO 1aa@@ 


WW = @ 


FOR T = 17T08 

IF LACT) = I THEN 16384 
NEXT =: GOTO 165@ 

WW + isT(WW) = T 
GOTO 1620 

FOR I = 1 TO 4:AM = 
= @ 
NEXT : 
VTAB 3: 


AM + MN(T) eMNCT) 


IF WW = @ THEN 1768 

HTAB 15: PRINT "WINNER(S) "3 
= 15 

FOR I = 1 TO WW 

VTAB Wis HTAB We: PRINT AS(TI(T))s 

IF WW > 1 THEN PRINT ", "8 

We + S: NEXT 

IF WW = 1 THEN 179@ 
VTAER 17: HTAB i@: PRINT 
RECEIVES:"'s 

VTAB 17: HTAH 3@s 
@: GOTO 1824 
VYTAB 3: HTAB 15: 
GOTO 1874 

VTAR 17: HTABR 1@: PRINT ¢: 
PRINT "YOU WILL RECEIVE:"s; 
GOTO 174a 

REM ANOTHER 
VTAH 14: HTAB 15: 
RACE (Y/N) ?"3AS 
IF AS = "N” THEN 
HOME ZZ = 1: GOTO 36u 

FOR TU = 1 TO 1le@a: NEXT 

VTAR 19: HTAER 1 

PRINT "IF ANQTHER RACE IS HELD, 
PRINT 
PRINT 


"EACH WINNER 
PRINT AASSAM / WW; 


PRINT "#* NO WINNERS 


INPUT "ANOTHER 


UA 


THE" 
"COMPUTER WILL BET THE MONEY” 
"ON A LANE IT SELECTS. “ 

GOTO 1820 

REM END 

HOME 


PRINT "FAREWELL * TILL NEXT RACE." 


HA52 
£120 
e1l1ia 
eis 
z1Se2 
2140 
2162 
#172 
2182 
2198 
£195 
ece@ 
erage 4 
c24@ 
eco! 
2760 
e2Be 
ec9a 
= S22 
¢31a 
2 S22 


] 


END 
POKE 769,13 
POKE 77a, 32 
POKE 768, 1 
CALL 771 
RETURN 

POKE 769,6 
POKE 772, 8 
POKE 768, 1 
CALL 771 
RETURN 

POKE 769, 22 
POKE 772, 4 
POKE 768, 1 
CALL 771 
RETURN 

POKE 769,93 
POKE 778, 5 
POKME 764, 1 
CALL 771 
RETURN 
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Injection for the Apple II 


REM PROGRAM TITLE: INJECTION 


CLEAR 

PRINT CHR (4) 3"HBLOADSOUND" 
HOME 

HTABR i5: PRINT "> INJECTION <¢" 
PRINT 


INPUT "NUMBER TO PLAY (1-1@)"5U 

TU ¢ 1 OR U > 1a THEN 7@ 

PRINT "THE INITIALS GF THE PLAYERS:" 
FOR I = 1 TO Us INPUT K&(T) 

NEXT =: PRINT =:PL = 1 

PRINT "YOU ARE HEAD OF A LABGRATORY" 
PRINT "IN WHICH YOUR COMPANY I5 IN THE" 
PRINT "PROCESS OF INJECTING CUBES WITH" 
PRINT "A SOLVENT, TO DESTROY A COLONY" 
PRINT "OF BACTERIA WHICH CANNOT HE" 
PRINT "CONTROLLED. THESE CURES WILL" 
PRINT “RACE ACROSS THE SCREEN S AT A" 


ODINT "TIME, TO INJECT O CUBE. HOLD" 


VO OeNhewe Tee Beem tee Yard as Bee” fem oy 4 6 Wael tome Send 


PRINT "THE SPACE BAR. THE INJECTED" 
PRINT "SOLVENT MUST DIRECTLY STRIKE 
THE” 

PRINT "OPENING AT THE BOTTOM OF THE 
CUBES. " 

PRINT 

PRINT 

INPUT "PRESS RETURN TO CONTINUE: "sl 
PRINT "EACH TIME A CUBE IS INJECTED, " 
PRINT "THE NUMBER RACING ACROSS THE 


SCREEN" 
PRINT "WILL DECREASE HY ONE, BUT" 


PRINT "NO FEWER THAN THREE WILL RACE" 
PRINT "ACROSS AT ANY ONE TIME. A 
TOTAL" 

PRINT "QF TEN CURES MUST BE INJECTED" 
PRINT "WITH THE SOLVENT. IF YOU MISS 
ON" 

PRINT "INJECTION, THE NUMBER OF CUBES 
WILL" 

PRINT "INCREASE BY ONE. THE INJECTION" 
PRINT "MACHINE CAN BE MOVED LEFT OR 
RIGHT" 

PRINT "WITH THE LEFT OR RIGHT ARROW 
KEYS, " 

PRINT "GOOD LUCK!" 

PRINT 


4@@ INPUT "PRESS RETURN TO CONTINUE: ":L¢ 

405 GR 

41@ HOME :JN = @:T = 1:IN = 1@:E = @:cy = 
5: GOSUE 6aa 

420 REM THE CUBES 

430 X = 33M = X:J = O@:JJ = @: COLOR= 11 

44% COLOR= 11: HLIN X,(X + 4) AT 2 

45@ HLIN X,(X + 4) AT 3 

455 HLIN X,(X + 4) AT 4 

46@ COLOR= @: PLOT (X + 2),4 

47a xX =X + 6:J = J +1 

475 GOSUR 1600 

48@ IF JJ = 1 THEN S22 

49@ IF J) = CV THEN 51a 

saa GOTO 442 

Si@ COLOR= @: REM ELANK QUT 

Sea HLIN M,(M + 4) AT & 

S53@ HLIN M,(M + 4) AT 3 

S535 HLIN M,(M + 4) AT 4 

S44 M=M + 6 

SS5@ REM RECYCLE 


36@ IF X >) = 33 THEN X = 3:JJ = 1: GOTO 
JBM 

3/70 IF M> = 33 THEN 43a 

38@ GOTO 72a 

6@@ COLOR= if: REM BORDER/INJECTOR 


61@ FOR X = @ TO 39: PLOT xX,a 

620 PLOT X,38: PLOT X,39: NEXT 

63@ FOR X = 1 TO 39 

640 PLOT @,X: PLOT 1,X 

65@ PLOT 38,X: PLOT 39,X: NEXT 

66@ COLOR= 14: HLIN P,39 AT 15 

67@ QC = 2:0R = 14:CA = a 

682 PLOT G@c,arR 

69@ VTAR 21: HTAB 1: PRINT "CUBES 
REMAINING ": 

7@@ VTABR 21: HTAB 23: PRINT "CUBES ADDED ": 

71@ VTAB #2: PRINT K#(PL)s: RETURN 

720 REM INJECTION/INJECTOR MOVE 

73@ IF R = 3@ THEN 79a 

742 R= PEEK ( — 16384) - 128: POKE ¢ - 


16368) ,@ 

75@ IF R = 32 THEN 79a 
762 IF R = 8 THEN Jaa 
77@ IF R = #1 THEN 96a 


78@ GOTO 44a 
73@ IF JN = 1 THEN 814 
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QQ = GC:JN = 1:01 = OR 
IF QR ( = 4 THEN V = 1: GOTO 86a 
COLOR= @: PLOT G@C,OR 

QR = GR - 11: COLOR= 14: PLOT GC,OR 
GOSUR 17aa 
IF SCRN( (QC + 1),QR) = 11 THEN 845 
GOTO 44a 
IF SCRN( (QC - 1),GR) = 11 THEN 1aza 
GOTO 442 
COLOR= @: GOSUB 19400 
PLOT OC,OR 

QC = GQ + E:00 = @:£ = @:0R = Gi 
COLOR= 14: PLOT Q@C,GR: IF V = 1 THEN 
GOSUB 1142 

R= @:JN = @: GOTO 44a 
REM TO LEFT 
IF OC ¢ = 3 THEN 44@ 

COLOR= @: PLOT GC,OR 

oc = ec -T 
COLOR= 14: GOSUB 18aa 
PLOT OC, QR 
GOTO 44a 
REM TO RIGHT 
IF @C ) = 35 THEN 442 
COLOR= @: PLOT OC,QR 

QC = OC +T 
COLOR= 14: GOSUE 18aa 
PLOT QC, QR 
GOTO 442 
IF SCRN( OC, (QR - 1)) = 11 THEN ia@3a 
GOTO 442 
IF SCRN( (QC - 2),0R) = 11 THEN 1045 
GOTO 44a 
IF SCRN( (QC + @),QR) = 11 THEN 1@6@ 
GOTO 44a 
REM INJECTED 

T=T+4:0V=CV-1 
IF T) = 5 THEN T = 1 
IF CV ( = @ THEN CV =5 

IN = IN - 1: VTAE 21: HTAR 18: PRINT * 


"3s: HAR 18: PRINT IN: 


IF IN ¢ = @ THEN 1e5a 
E = INT (5 # RND (1) + 1): IF E +@QQ > 
= 37 THEN E = - INT (5S * RND1) + 1) 
GOTO 86a 


REM CUBE ADDED/INIECTION MISSED 
IN = IN + 1 


116@ CA = CA + 


1165 
117@ 
118@ 
119@ 
12@@ 
1218 
1250 
1268 
1278 
128 


129 
1 3a@ 
131@ 
132Q 
1335@ 


WCPL) 


7V = @ 
THEN GOTO 125@ 


@ THEN T = 1 
HTAB 18: PRINT IN; 
HTAB 36: PRINT CA; 


PLAYER ADVANCE 

= CA:PL = PL + 1 

IF PL >) U THEN 1314 

VTABR 22: PRINT "STANDBY "sKS¢(PL)5"... 
1 TO 15@@: NEXT 

= @: GOTO 414 


FOR YY = 1 TO 90@: NEXT : TEXT : HOME 
PRINT "ALL PLAYERS HAVE HAD THEIR" 
PRINT "TURNS AT THE INJECTION 
MACHINE, " 

PRINT "SCORES ARE BASED ON THE NUMBER 
PRINT "OF CUBES WHICH WERE ADDED 
DURING" 

PRINT "THE INJECTION PROCESS. ” 
PRINT : FOR I = 1 7T0U 

PRINT “INJECTOR: "skK#(1) 

PRINT "HAD "3W(I):" CUBES ADDED. " 
PRINT "FINAL SCORE EVALUATION:": 
Wo= WI) 

IFW) = @ANDW ( = 5 THEN 1472 
IFW) = 5 AND W ¢ = 1@ THEN 1482 
IF W) = 10 AND W ( = 2@ THEN 1492@ 
PRINT "TOO BAD TO MENTION! ": 

GOTO 15a 

PRINT "EXCELLENT!": GOTO 15a@ 

PRINT "FAIR. ": GOTO 152a 

PRINT "POOR.": GOTO i5aa 

FOR YY = 1 TO 12@@: NEXT YY: PRINT 
NEXT I 

PRINT 

PRINT "END OF INJECTION" 

END 

POKE 769,23 

POKE 774, 28 

POKE 768, = 

CALL 771 

RETURN 

POKE 769,112 

POKE 77,6 
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1728 
173@ 
1748 
18@@ 
1814 
183@ 
184@ 
185@ 
19a 
1391@ 
192@ 
193@ 
1944 
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POKE 766, 1 
CALL 771 
RETURN 

POKE 769, 25 
POKE 778, 25 
POKE 768, 1 
CALL 771 
RETURN 

POKE 769, 132 
POKE 774, 6 
POKE 768, 1 
CALL 771 
RETURN 


Appendix C 


Making the Programs 
Work on Your Own Computer 


Both the IBM and TRS-80 computers use MicroSoft BASIC, which 
means that they use similar syntax. However, you will find some 
differences as you program. Here are the most common problems 
you'll encounter in this book as you enter the programs which didn't 
come with special versions for the IBM or Apple. 

CHR$. If a program asks for a character with an ASCII code 
smaller than 32 and larger than 90, it’s probably some kind of special 
character limited to your computer. The computer industry hasn't 
bothered to standardize these numbers. TRS-80 ASCII codes be- 
tween 129 and 191 are special graphics characters, and they’re used 
to make things look interesting. Just substitute something your 
computer has that looks interesting to you! Check your basic man- 
ual for ideas. (My favorite IBM character is CHR$(2), a smiley face 

..) 

CLEAR. This command just gets rid of all the ‘‘garbage” your 
computer has left lying around in its memory from other programs 
you ve run. Don’t bother to put a number after it unless your own 
basic manual suggests it—at least, not for any programs without 
machine language routines or a lot of high resolution graphics. 

CLS. Apple users, use HOME! 

DELAYS. Well, what did you buy IBM for if not for speed ? But 
you'll have to almost double any time delay routines, such as 
for-next loops, unless you're twice as quick on the draw as the 
average computer owner. 
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ELSE. This very useful function is available to IBM users, but 
not to Apple lovers. Whenever you see a line in one of the original 
programs with an else statement, if the program is to run on an 
Apple II, you must create another line immediately following it to 
hold anything that follows the word else. Then you must make the 
original line skip that new line so that it makes it to where it was 
going in the first place. Did I lose you back at the pass ? It works like 
this: 

Original lines: 20if A=10 THEN A=17 ELSE A=A+1:GOTO 10 
30 Z=INT(RND(1)+A+1) 

New lines: 20 IF A=10 THEN A=17:GOTO 30 
25 A=A+1:GOTO 10 
30 Z=INT(RND(1)#A+1) 


I hope you understood that, because that’s ali the explanation 
you are going to get. 

INKEY$. This is another command Apple users must do 
without. It lets you monitor the keyboard directly without having to 
press the enter key. However, Apple users can peek and poke their 
way toa similar result. Instead of, for example, X$=INKEY$, you'll 
need to use X=PEEK (— 16384 ) — 128. X will be the ASCII code of 
whatever was input. Be sure to reset this memory location, though, 
or your program will think you've been holding down the REPT key. 
You do this by following your peek statement by POKE — 16368, 
0. 

PRINT@. See SCREEN FORMATTING 

PRINT USING. This is another of those useful commands 
your Apple doesn’t understand. This command allows you to format 
a number so that something going in looking like 987654321 can 
come out looking like $9,876,543.21. The print using statement will 
have a string of characters such as $$#####,. ##, which works 
the conversion from chaos to order. Apple users will have to figure 
out what the number is supposed to look like from context and use 
regular print statements to approximate the TRS-8&0 results. 

RND. TRS-80 BASIC accepts the statement RND(n) to pro- 
duce a random number between n and 0. If you want the bottom 
value to be higher than zero, you must add a second statement such 
as “IF W<=10 THEN...” and go back to the RND statement until 
you get the value you want. A randomize statement in the early lines 
of the program will reset the random number generator so that it 
gives different values each time the program is run, otherwise the 
game may be too predictable. 
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Some BASICS, such as those used by IBM and Apple, can use a 
formula to produce random numbers within desired limits all in one 
step. Using the variable name A to represent the higher number and 
B for the lower, use this formula: X= INT(RND+«(A-—B) +B. Sup- 
pose you need random numbers between ten and twenty. 20— 
10=10, so X= INT(RND*10+10). 

To ensure that the random number generator gives a different 
value each time the game is started, add the subscript (1) to RND on 
the Apple: X= INT(RND(1)+#10+10). The IBM will require you to 
use the command Randomize n, where n is a number that can be 
input from the keyboard or be given a value by the program. See 
how it’s done in the special IBM and Apple versions if you aren’t 
sure how to write it into a program. 

STRINGS. I won't even say it. .. Dol hear the patter of little 
feet running out to trade in that Apple? No need! Think of all the 
terrific software you can get for it, and use a for-next loop. 

STRING$ allows the computer to use one print statement to do 
a repetitive task, such as making a row of stars along the top and 
bottom of the screen. If the statement says PRINT STRING$ 
(40,42), it’s telling the computer to print a line of forty characters 
with the ASCII code of 42, which 1s an asterisk. You can replace that 
statement with something like: FOR X=1 TO 40:PRINT 
“*’”» *NEXT. Don’t forget the semicolon after the “*”, or they’l! all 
come out on different lines. (You already knew that, didn’t you?) 


SCREEN FORMATTING 


The TRS-80 Model [I] Computer for which the programs in this 
book were originally written supports a screen display sixty-four 
characters wide and sixteen rows deep. The IBM, by contrast, 
offers a choice of either forty or eighty columns in width, with 24 
rows. This means that programs which don’t require any special 
formatting (i.e., graphics of some kind) can be used on the 80 width 
screen without changes. They may look a little lopsided, but that 
doesn’t bother most people. 

Most Apple computers have only a forty character screen. If 
you have an Apple or other narrow screen computer (or choose to 
use the 40 width screen on an JBM) or are entering a program which 
requires that the text be located on the screen in a precise manner, 
you will need to reformat. 

First, decide what the program ‘‘wants”. If the sample printout 
is all text, it probably doesn’t matter how wide the lines are. If 
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they’re too wide, they’ll wrap around. If you fill the screen too soon 
and part of the text scrolls off, insert or move a pause routine (a 
for-next loop) or stop it with an input statement. 

You have more screen lines, so you may want to center the text 
or graphics image by adding a few blank lines at the top ; or you can 
block text at the bottom in rows 17-23 (don’t use line 24 unless you 
want a scrolling effect) to simplify a graphics image in the first 
sixteen rows. 

Most of the complicated reformatting has been done for you in 
the separate program listings in Appendices A and B;: however, if 
you aren't sure how to format the remaining programs, use the 
following guides. 

The most common TRS-80 screen formatting statement 1s 
PRINT @ . PRINT @locations start at the top left corner of the 
screen with PRINT @0O, and work their way up one by one as they 
move across the screen to the right. The rightmost corner of the top 
line is PRINT @ 63. after which the count continues on the next row, 
starting again at the left. If you can’t visualize this, look at the chart 
otf PRIN‘l @locations in Appendix D. 

A screen location directly above or below another can be 
pinpointed by subtracting 64 from the original PRINT @ location or 
adding 64 to it. If you want to convert the number into row and 
column figures you can use on the Apple (VTAB and HTAB loca- 
tions) and the IBM (LOCATE statements), divide the PRINT 
@ value by 64 and add one to the answer to obtain a row, and add one 
to the remainder to get the column. Or look at the chart—after all, 
you paid for it. 

TRS-80 also supports TAB(n) statements which are just like 
IBM’s, and are the equivalent of Apple HTAB. However, whether 
you are looking at a PRINT @ location or a tab statement, if you are 
using a 40 character screen you will need to make sure your column 
values stay on the screen. Remember that 40 is approximately 
two-thirds of 64; reducing the column values by one-third and 
experimenting will probably get the desired result. If the program 
line wraps around and you don’t want it to, either shorten it, or move 
the starting column position to the left. 

TRS-80 also has a function called set, which lights up one pixel, 
or little light dot, on the screen. The locations are described in the 
same way Apple users describe plot locations, or IBM owners 
access PSET: SET X,Y means go over X and down Y and light up 
the screen there. Reset does just the opposite: it turns off a lighted 
pixel at the specified location. 
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However, since set and reset address pixels and plot addresses 
a block, you’ll need to cut all X axis values (counting across the 
screen) by 2/3, and the Y values (counting down the screen) in half. 
You'll want to experiment a little. If the program says SET 127,30 
followed by SET 100,30, the first dot will be at the right-hand edge 
of the screen, eleven rows down ; and the second, while at the same 
level, will be about a fourth of the way toward the left side of the 
screen. The PRINT @ chart includes set information. 

IBM users also have the option of converting set locations into 
locate statements, but they must remember to reverse the order of 
the axes, since locate statements give the row first, and then the 
column. 


SCREEN GRAPHICS 


Now the Apple users can watch the IBM users squirm for a 
minute. If you have an IBM PC with a monochrome monitor, it 
probably doesn’t have a color/graphics card. This means that two of 
the special versions for IBM, Knights and Intercept, won't work on 
your screen. You will need to combine the information you learned 
in the section on screen formatting with the adapted versions to turn 
the screen graphics commands into text screen commands your 
system can display. Use your BASIC manual for a reference. 

Also, almost all of the IBM programs use color, even when in 
the text screen. (This is because there are so many colors on the 
text screen!) If you have a graphics card and a ‘‘green screen” (not 
as crazy aS it might sound), change all of the color statements to read 
COLOR 7,0,0. This will give you bright characters on a dark 
background. Or, even simpler, just don’t type in any color state- 
ments at all. 


SOUND EFFECTS 


You can use the Apple sound routine for any programs in the 
book, whether they are written with sound or not. Look at the 
special Apple versions and see how the routine is loaded and called 
by the programs; then try your own. Many BASICS support sound 
statements. You'll see some of these in the IBM programs, which 
use the special musical abilities IBM comes with. Use these exam- 
ples and those given in your BASIC manual to see what you can 
come up with for the programs you think are too quiet. 


VARIABLE LENGTH 
The world of computers is a world of trade-offs. Apple users 
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can name their programs anything they like, including multiple word 
titles; IBM users are stuck with eight letters and a suffix. But IBM 
users can name their variables anything they like, as long as it 
doesn’t have spaces. You can expand variable names to make the 
program more meaningful if you want. Apple users, better stick to 
those two-letter names the programs come with. 

And now, happy hacking! 
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Appendix D 
Screen Locations 


TRS-80 SCREEN LOCATIONS 


LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 
ROW 1 :PRINT@ 0 PRINT@ 15 PRINT@ 31 PRINT@ 47 PRINT@ 63 

SET 0 , 0 SET 31 , 0 SET 63 , 0 SET 95 , 0 SET 127 , 0 
ROW 2 :PRINT@ 64 PRINT@ 79 PRINT@ 95 PRINT@ 111 PRINT@ 127 

SET 0 , 3 SET 31 , 3 SET 63 , 3 SET 95 , 3 SET 127 , 3 


ROW 3 :PRINT@ 128 PRINT@ 143 PRINT@ 159 PRINT@ 175 PRINT@ 191 
SET 0 , 6 SET 31 , 6 SET 63 , 6 SET 95 , 6 SET 127 , 6 


ROW 4 :PRINT@ 192 PRINT@ 207 PRINT@ 223 PRINT@ 239 PRINT@ 255 
SET O , 9 SET 31 , 9 SET 63 , 9 SET 95 , 9 SET 127 , 9 


ROW 5 :PRINT@ 256 PRINT@ 271 PRINT@ 287 PRINT@ 303 PRINT@ 319 
SET 0 , 12 SET 31 , 12 SET 63 , 12 SET 95 , 12 SET 127 , 12 


ROW 6 :PRINT@ 320 PRINT@ 335 PRINT@ 351 PRINT@ 367 PRINT@ 383 
SET 0 , 15 SET 31 , 15 SET 63 , 15 SET 95 , 15 SET 127 , 15 


ROW 7 :PRINT@ 384 PRINT@ 399 PRINT@ 415 PRINT@ 431 PRINT@ 447 
SET O , 18 SET 31 , 18 SET 63 , 18 SET 95 , 18 SET 127 , 18 


ROW 8 :PRINT@ 448 PRINT@ 463 PRINT@ 479 PRINT@ 495 PRINT@ 511 
SET 0 , 21 SET 31 , 21 SET 63 , 21 SET 95 , 21 SET 127 , 21 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 
ROW 9 :PRINT@ 512 PRINT@ 527 PRINT@ 543 PRINT@ 559 PRINT@ 575 

SET 0 , 24 SET 31 , 24 SET 63 , 24 SET 95 , 24 SET 127 , 24 
ROW 10: 

PRINT@ 576 PRINT@ 591 PRINT@ 607 PRINT@ 623 PRINT@ 6° 

SET O , 27 SET 31 , 27 SET 63 , 27 SET 95 , 27 SET 127 , 
ROW 11 ;: 

PRINT@ 640 PRINT@ 655 PRINT@ 671 PRINT@ 687 PRINT@ 703 

SET O , 30 SET 31 , 30 SET 63 , 30 SET 95 , 30 SET 127 , 30 
ROW 12 : 

PRINT@ 704 PRINT@ 719 PRINT@ 735 PRINT@ 751 PRINT@ 767 

SET 0 , 33 SET 31 , 33 SET 63 , 33 SET 95 , 33 SEI 127 , 33 
ROW 13 : 

PRINT@ 768 PRINT@ 783 PRINT@ 799 PRINT@ 815 PRINI@ 831 

SET 0 , 36 SET 31 , 36 SET 63 , 36 SET 95 , 36 SET 127 , 36 
ROW 14 : 

PRINT@ 832 PRINT@ 847 PRINT@ 863 PRINT@ 879 PRINT@ 895 

SET 0 , 39 SET 31 , 39 SET 63 , 39 SET 95 , 39 SET 127 , 39 
ROW 15 :; 

PRINT@ 896 PRINT@ 911 PRINT@ 927 PRINT@ 943 PRINT@ 9°59 

SET 0 , 42 SET 31 , 42 SET 63 , 42 SET 95 , 42 SET 127 , 42 
ROW 16 : 

PRINT@ 960 PRINT@ 975 PRINT@ 991 PRINT@ 1007 PRINT@ 1023 

SET 0 , 45 SET 31 , 45 SET 63 , 45 SET 95 , 45 SET 127" , 45 

LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 
ROW 1 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 1 PLOT 9 , 1 PLOT 19 , 1 PLOT 29 , l PLOT 39 , 1 
ROW 2 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 2 PLOT 9 , 2 PLOT 19 , 2 PLOT 29 , 2 PLOT 39 , 2 
ROW 3 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 3 PLOT 9 , 3 PLOT 19 , 3 PLOT 29 , 3 PLOT 39 , 3 
ROW 4 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 4 PLOT 9 , 4 PLOT 19 , 4 PLOT 29 , 4 PLOT 39 , 4 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


ROW 5 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 5 PLOT 9 , 5 PLOT 19 , 5 PLOT 29 , 5 PLOT 39 , 5 


ROW 6 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 6 PLOT 9 , 6 PLOT 19 , 6 PLOT 29 , 6 PLOT 39 , 6 


ROW 7 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 7 PLOT 9 , 7 PLOT 19 , 7 PLOT 29 , 7 PLOT 39 , 7 


ROW 8 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 8 PLOT 9 , 8 PLOT 19 , 8 PLOT 29 , 8 PLOT 39 , 8 


ROW 9 :HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 9 PLOT 9 , 9 PLOT 19 , 9 PLOT 29 , 9 PLOT 39 , 9 


HTAB 1 HTAB 10 » HTAB 20 HTAB 30 HTAB 40 
PLOT O , 10 PLOT 9 , 10 PLOT 19 , 10 PLOT 29 , 10 PLOT 39 , 10 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 11 PLOT 9 , 11 PLOT 19 , 11 PLOT 29 , 11 PLOT 39 , 11 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 12 PLOT 9 , 12 PLOT 19 , 12 PLOT 29 , 12 PLOT 39 


- 
—— 
bo 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 13 PLOT 9 , 13 PLOT 19 , 13. PLOT 29 , 13. PLOT 39 , 13 


ROW 14 ; 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0 , 14 PLOT 9 , 14 PLOT 19 , 14 PLOT 29 , 14 PLOT 39 , 14 
ROW 15: 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT O , 15 PLOT 9 , 15 PLOT 19 , 15 PLOT 29 , 15 PLOT 39 , 15 
ROW 16 ; 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 

PLOT 0 , 16 PLOT 9 , 16 PLOT 19 , 16 PLOT 29 , 16 PLOT 39 , 16 
ROW 17 ; 

HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 


PLOT 0 , 17 PLOT 9 , 17 PLOT 19 , 17. PLOT 29 , 17. PLOT 39 , 17 
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= OF 
LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 18 PLOT 9 , 18 PLOT 19 , 18 PLOT 29 , 18 PLOT 39 , 18 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 19 PLOT 9 , 19 PLOT 19 , 19 PLOT 29 , 19 PLOT 39 , 19 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 20 PLOT 9 , 20 PLOT 19 , 20 PLOT 29 , 20 PLOT 39 , 20 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 21 PLOT 9 , 21 PLOT 19 , 21 PLOT 29 , 21 PLOT 39 , 21 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 22 PLOT 9 , 22 PLOT 19 , 22. PLOT 29 , 22 PLOT 39 , 22 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 23 PLOT 9 , 23 PLOT 19 , 23. PLOT 29 , 23. PLOT 39 , 23 


HTAB 1 HTAB 10 HTAB 20 HTAB 30 HTAB 40 
PLOT O , 24 PLOT 9 , 24 PLOT 19 , 24 PLOT 29 , 24 PLOT 39 , 24 


IBM PC SCREEN LOCATIONS 


LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


ROW 1 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , O PSET 79, O PSET 159 , O PSET 239 , O- PSET 319 , O 


ROW 2 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , 8 PSET 79 , 8 PSET 159 , 8 PSET 239 , 8 PSET 319 , 8 


ROW 3 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , 16 PSET 79 , 16 PSET 159 , 16 PSET 239 , 16 PSET 319 , 16 


ROW 4 :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , 24 PSET 79 , 24 PSET 159 , 24 PSET 239 , 24 PSET 319 , 24 


ROW S :COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , 32 PSET 79 , 32 PSET 159 , 32 PSET 239 , 32 PSET 319 , 32 
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LEFT EDGE 


ROW 6 :COLUMN 


1 


1/4 ACROSS 


COLUMN 20 


1/2 ACROSS 


COLUMN 40 


3/4 ACROSS 


COLUMN 60 COLUMN 80 


PSET 0 , 40 PSET 79 , 40 PSET 159 , 40 PSET 239 , 40 PSET 319 , 40 


ROW 7 :COLUMN 
PSET 0 , 48 


ROW 8 :COLUMN 
PSET 0 , 56 


ROW 9 :COLUMN 


PSET 0 , 64 


ROW 10 : 
COLUMN 
PSET 0 , 72 


ROW 11 : 
COLUMN 
PSET 0 , 80 


ROW 12: 
COLUMN 
PSET O , 88 


ROW 13 : 
COLUMN 
PSET 0 , 96 


ROW 14 : 
COLUMN 
PSET 0 , 104 


ROW 15: 
COLUMN 
PSET 0 , 112 


ROW 16 : 
COLUMN 
PSET 0 , 120 


ROW 17 : 
COLUMN 
PSET 0 , 128 


ROW 18 : 
COLUMN 
PSET 0 , 136 


COLUMN 
PSET O , 144 


ROW 20 : 
COLUMN 
PSET O , 152 


1 


COLUMN 20 


COLUMN 40 


COLUMN 60 COLUMN 80 


PSET 79 , 48 PSET 159 , 48 PSET 239 , 48 PSET 319 , 48 


1 


COLUMN 20 


COLUMN 40 


COLUMN 60 COLUMN 80 


PSET 79 , 56 PSET 159 , 56 PSET 239 , 56 PSET 319 , 56 


1 


COLUMN 20 


COLUMN 40 


COLUMN 60 COLUMN 80 


PSET 79 , 64 PSET 159 , 64 PSET 239 , 64 PSET 319 , 64 


1 
PSET 


PSET 


PSET 


PSET 


PSET 


COLUMN 20 
79, 72 PSET 


COLUMN 20 
79, 80 PSET 


COLUMN 20 
79, 88 PSET 


COLUMN 20 
79, 96 PSET 


COLUMN 20 
79 , 104 PSET 


COLUMN 20 
79 , 112 PSET 


COLUMN 20 
79 , 120 PSET 


COLUMN 20 


COLUMN 40 
159 , 72 PSET 


COLUMN 40 
159 , 80 PSET 


COLUMN 6() COLUMN 
239 , 72 PSET 319 , 


80 
72 


RIGHT EDGE 


COLUMN 60 COLUMN 
239 , 80 PSET 319 , 


COLUMN 40 
159 , 88 PSET 


COLUMN 40 
159 , 96 PSET 


COLUMN 60 COLUMN 
239 , 88 PSET 319 , 


80 
88 


COLUMN 60 COLUMN 
239 , 96 PSET 319 , 


Se SRSA FY NSRSSSY aS Yaya WSS SOY Wy We © SSP 


COLUMN 40 
159 , 104 PSET 


COLUMN 60 COLUMN 
239 , 104 PSET 319 , 


SS SRR 


COLUMN 40 
159 , 112 PSET 


COLUMN 40 
159 , 120 PSET 


COLUMN 40 


79 , 128 PSET 159 , 128 PSET 


COLUMN 60 COLUMN 
239 , 112 PSET 319 , 


COLUMN 60 COLUMN 
239 , 120 PSET 319 , 


COLUMN 60 COLUMN 80 
239 , 128 PSET 319 , 128 


COLUMN 20 


COLUMN 40 


COLUMN 60 COLUMN 80 


79 , 136 PSET 159 , 136 PSET 239 , 136 PSET 319 , 136 


SS SASSY Spy yA 


COLUMN 20 


COLUMN 40 


COLUMN 60 COLUMN 80 


79 , 144 PSET 159 , 144 PSET 239 , 144 PSET 319 , 144 


COLUMN 20 


COLUMN 40 


COLUMN 60 COLUMN 80 


79 , 152 PSET 159 , 152 PSET 239 , 152 PSET 319 , 152 
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LEFT EDGE 1/4 ACROSS 1/2 ACROSS 3/4 ACROSS RIGHT EDGE 


ROW 21: 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , 160 PSET 79 , 160 PSET 159 , 160 PSET 239 , 160 PSET 319 , 160 


ROW 22 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , 168 PSET 79 , 168 PSET 159 , 168 PSET 239 , 168 PSET 319 , 168 


ROW 23 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET 0 , 176 PSET 79 , 176 PSET 159 , 176 PSET 239 , 176 PSET 319 , 176 


ROW 24 : 
COLUMN 1 COLUMN 20 COLUMN 40 COLUMN 60 COLUMN 80 
PSET O , 184 PSET 79 , 184 PSET 159 , 184 PSET 239 , 184 PSET 319 , 184 
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Appendix E 
Setting Up Your Games Disk 


If you have a disk drive, why not make a menu-driven disk with all of 
the games in this book, just like the software you buy? If your 
computer’s BASIC has the chain command, or if you know how to 
address the disk drive from a program, you can make a professional 
looking games disk. The IBM and Apple versions of a menu program 
are included in this section. You may use these programs as a 
general guide for creating menu programs for other systems. 


MAKING A DISK FOR THE IBM PC 


To make a disk for the IBM PC, format the disk using the 
FORMAT /S command, so that the disk will be self-booting. Next, 
make an auto-exec file by doing the following: With your DOS disk 
in the disk drive, type the command EDLIN AUTOEXEC.BAT and 
press the enter key. If you have two drives and the formatted disk is 
in drive B, be sure to type EDLIN B:AUTOEXEC.BAT. If you have 
one drive, take out the DOS disk and put in your formatted disk now. 

Press I and the enter key; when you see the number 1:, type 
BASICA MENU (or whatever you plan to call menu program) and 
press enter. Now type E and press the enter key. The auto-exec file 
will be saved on the disk in the drive you specified. (I'll bet that was 
easier than you thought!) 

You will need to copy BASICA.COM onto the disk; use the 
command COPY BASICA.COM B:;; if you have two drives, the file 
will automatically copy onto the formatted disk in the B drive. If you 
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have one drive, put the formatted disk into the drive when in- 
structed by the monitor. 

Now, copy your game programs onto the newly formatted disk 
and add the menu program listed below. You will need to change all 
end statements in the game programs to CHAIN “MENU”, 10 (if you 
have used a different file name for your menu and a different starting 
line number, substitute those for ‘‘MENU” and ‘‘10”). Also, if you 
renumbered any programs, remember that the chain statement in 
the menu program must refer to an existing line number; check your 
program to see what line number you want the computer to chain to. 


Vienu Program for the IBM PC 


10 WIDTH 80:COLOR 7,0,0:KEY OFF:CLS 
20 LOCATE 10,25:PRINT "ADULT COMPUTER GAMES IN 
BASIC" 
30 PRINT:PRINT: PRINT TAB(38) "By" 
40 PRINT:PRINT:PRINT TAB(32) "DAVID W. CHANCE" 
390 PRINT:PRINT: PRINT: PRINT: PRINT TAB(25)"IBM PC 
conversions by Tan A. Summers" 
60 PRINT:PRINT: INPUT "Press Enter For Menu",AA$ 
100 CLS:PRINT "1) HOLD TIME":PRINT:PRINT "2) 
ELEVATOR":PRINT: PRINT '3) FAREWELL": PRINT 
110 PRINT '"4) MIND INVASION':PRINT:PRINT "5) 
KNIGHTS":PRINT: PRINT "6) INJECTION'":PRINT 
120 PRINT "7) POINT A TO POINT B":PRINT:PRINT ''8) 
INTERCEPT" 
130 PRINT:PRINT:PRINT "9) EXIT PROGRAM" 
140 PRINT 
150 PRINT "Press Space Bar for More Games" 
160 R$=INKEY$ 
170 IF R$=""" THEN GOTO 160 
180 IF R$=" "THEN GOTO 200 
190 R=VAL(R$) ; 
195 ON R GOTO 310,320, 330, 340, 350, 360, 370, 380, 390 
200 CLS:PRINT "1) INSOMNIA':PRINT:PRINT "2) 
LAP-THE-TRACK": PRINT: PRINT "3) BE PREPARED": PRINT 
210 PRINT '"4) THE COURSE":PRINT:PRINT '5) TRAPPED" 
:PRINT: PRINT "6) RAINY DAZE ":PRINT 
220 PRINT '7) GENERAL STORE":PRINT: PRINT "8) 
RAIN OF TERROR" 
230 PRINT:PRINT:PRINT "9) EXIT PROGRAM" 
240 PRINT 
250 PRINT "Press Space Bar for More Games" 
260 K$=INKEY$ 
270 IF K$=""" THEN GOTO 260 


IF K$=" "THEN GOTO 200 

K=VAL(K$) 

ON K GOTO 410,420 ,430,440,450,460, 470,480,490 
DEF SEG=0:IF (PEEK(&H410) AND &H30)<>&H30 THEN 
DEF SEG:GOTO 100 

CHAIN "HOLDTIME" , 3 

CHAIN "ELEVATOR", 5 

CHAIN "FAREWELL" ,5 

CHAIN "MIND_INV",25 

DEF SEG=0:IF (PEEK(&H410) AND &H30)<>&H30 THEN 
DEF SEG:GOTO 359 

CLS:LOCATE 3,1 

PRINT "THIS PROGRAM REQUIRES THE COLOR/GRAPHICS 
ADAPTER. A SYSTEM CHECK" 

PRINT "SHOW THAT YOU'RE NOT USING THAT ADAPTER. 
PRESS THE SPACE BAR" 

PRINT "TO CONTINUE":DEF SEG:GOTO 356 

IF INKEY$<>"" THEN GOTO 355 

CMD$=INKEY$ 

IF CMD$="" THEN GOTO 356 

IF CMD$=" " THEN CLS:GOTO 100 

CHAIN "KNIGHTS", 5 

DEF SEG=0:IF (PEEK(&H410) AND &H30)<>&H30 THEN 
DEF SEG:GOTO 369 

CLS:LOCATE 3,1 

PRINT "THIS PROGRAM REQUIRES THE COLOR/GRAPHICS 
ADAPTER. A SYSTEM CHECK" 


PRINT "SHOW THAT YOU'RE NOT USING THAT ADAPTER. 
PRESS THE SPACE BAR" 

PRINT "TO CONTINUE":DEF SEG:GOTO 366 
IF INKEY$<>"" THEN GOTO 365 
CMD$=INKEY $ 

IF CMD$=""' THEN GOTO 366 

IF CMD$=""" THEN CLS:GOTO 100 

CHAIN "INJECTOR",5 

CHAIN "POINT",5 

CHAIN "INTRCPT",3 

GOTO 999 

CHAIN "INSOMNIA", 20 

CHAIN "LAPTRACK" ,3 

CHAIN "BEPREP",5 

CHAIN "COURSE", 20 

CHAIN "TRAPPED", 5 

CHAIN “RAINYDAZ",5 

CHAIN "STORE" ,3 


CHAIN "RAIN" ,20 
GOTO 999 
END 
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MAKING A DISK FOR THE APPLE Il 


Apple II users don’t have to worry about formatting. Just write 
the menu program below with a new disk in the drive, and when you 
are satisfied, type INIT MENU (or whatever you want to call it), and 
press the return key. The menu program will automatically start 
each time the system is booted with that disk in the drive. 

However, you probably don’t have the chain command to work 
with. Instead, at the end of each program put PRINT CHR$(4); 
“RUN MENU?” in place of the end statement. The PRINT CHR$(4) 
statement tells the disk drive to reload your menu program. 

If you have another kind of computer and aren’t sure how to 
make a menu-driven disk, try asking someone at the store where 
you bought your computer. Chances are, there’s an easy way to do it 
for your computer, Loo. 


{0 TEXT : HOME 
20 PRINT "1) MIND-INVASION" 
30 PRINT "2) RAIN“ 


AN OOTaAmtrT 9) TADTODALYH 
aw we 


& 2643048 a4 inh Sb Eh STD Odd 


90 PRINT "4) KNIGHTS" 

60 PRINT “S) INSOMNIA" 

70 PRINT "6) ELEVATOR" 

80 PRINT "7) FAREWELL" 

90 PRINT "“8) STORE" 

100 PRINT "9) RAINYDAZE” 

110 PRINT "10) TRAPPED" 

120 PRINT "t1t) INJECTION" 

130 PRINT "“12) HOLDTIME" 

190 PRINT "13) BE PREPARED" 

145 DS = CHRS$ (4) 

130 PRINT : PRINT : PRINT "ENTER 
THE NUMBER OF THE GAME YOU 
WANT": INPUT "TO PLAY ";A 

135 IF A > 14 OR A ( 1 THEN 10 

160 ON A GOTO 170,180,190,200,21 
0,220,230,240,250,260,270,28 
0,290,900,310,320 

170 PRINT D$;"RUN MIND-INVASION" 


180 PRINT D$;"RUN RAIN" 

{90 PRINT DS;"RUN LAPTRACK" 
200 PRINT DS;"RUN KNIGHTS" 
210 PRINT DS;"RUN INSOMNIA" 
220 PRINT DS;"RUN ELEVATOR” 
230 PRINT DS;"RUN FAREWELL" 
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240 
290 
260 
270 
280 
290 
300 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
HOME 


DS; "RUN STORE” 

D$;"RUN RAINYDAZE" 

D$;"RUN TRAPPED" 

D$;"RUN INJECTION" 

D$;"RUN HOLDTIME" 

D3;"RUN BE PREPARED" 
END 
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Index 


Index 


A 
Action games, 13, 42, 156, 182, 190, 
195, 212, 306, 314 
Amount on Board game, 271 
Apple II, adapting programs for, 469 


B 
Be prepared for the Apple Il, 415 
Be Prepared for the IBM PC, 377 
Be Prepared game, 182 
Betting games, 271, 279 


C 
Call routine, 9 
Chance games, 205 
CHR$, 469 
Clear command, 469 
CLS, 469 
Code games, 20, 28, 35, 165 
Columns, 471 
Course for the IBM PC, 381 
Course game, the, 13 


D 
Dangerous Affair, 165 
Date Service game, 121 
Delay routines, 469 
Disk set up for the Apple !i, 484 
Disk set up for the IBM PC, 481 
Driver's Test game, 42 


E 
Elevator for the Apple II, 439 
Elevator for the IBM PC, 331 
Elevator game, 234 
Else, 470 
Experiments with sound, 3 


F 
Farewell for the Apple Il, 446 
Farewell game 249 
From Point A to Point B game, 296 


G 
Games disks, 481 
General interest, games of, 59 
General Store for the Apple Ii, 404 
General Store for the IBM PC, 394 
General Store game, 92 
Graphics, 473 
Guessing games, 50, 104, 288 


Hold Time, 156 
Hold Time for the Apple ll, 410 
Hold Time for the IBM PC, 326 


I 
IBM PC, adapting programs for, 469 
Injection for the Apple Il, 464 
Injection for the IBM PC, 352 


489 


Injection game, 306 

INKEY$, 470 

Insomnia for the Apple Il, 452 
Insomnia for the IBM PC, 369 
Insomnia program, 258 
Intercept for the IBM PC, 362 
Intercept game, 314 


K 
Key a Date game, 131 
Knights for the Apple ll, 421 
Knights for the IBM PC, 347 
Knights game, 195 


L 
Lap-the-Track for the Apple Il, 458 
Lap-the-Track for the IBM PC, 372 
Lap-the-Track game, 279 
Love One Another game, 111 


M 
Master Code, 35 
Math-a-Code game, 28 
Mind Invasion for the Apple Il, 426 
RAimA lenracinn for the IRKA PC, 249 


Mind Invasion game, 212 
Monochrome monitor, 473 


N 
Numbers, random, 471 


P 
Partners game, 288 
Party games, 61, 75, 104, 269 
Point A to Point B for the iBM PC, 356 
Print , 470 
Print using, 470 
Program listings for the Apple II, 403 
Program listings for the IBM PC, 325 
PSET, 472 


R 


Rain of Terror, 190 
Rain of Terror for the Apple Il, 419 
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Rain of Terror for the IBM PC, 400 
Rainy Daze for the Apple II, 455 
Rainy Daze for the IBM PC, 391 
Randomize statement, 470 
Respect Your Computer, 104 

Rnd, 470 


) 

Screen formatting, 471 
Screen locations, Apple Il, 476 
Screen locations, IBM PC, 478 
Screen locations, TRS-80, 475 
Set statement, 472 
Skill and logic, games of, 11 
Skill games, 92, 141, 172, 222, 234, 

249, 263, 296 
Sound effects, 473 
Sound experiments (TRS-80), 3 
Sound routine for the Apple I!, 9-10 
Sound routine for the TRS-80, 1-3 
Squares game, 141 
STRINGS, 471 


vr 


Tab statement, 472 

Trapped for the Apple ll, 431 
Trapped for the IBM PC, 384 
Trapped game, 222 

Triangle game, 205 

Troubles game, 75 


U 
USR statements, 9 


] 
Variables, length of, 473 


Ww 
What Is It game, 50 
Where’s the Necessary Room game, 
61 
Width of screen, 471 
Words-Zit game, 20 


33 Adult Computer Games in BASIC 


If you are intrigued with the possibilities of the programs included in 33 
Adult Computer Games in BASIC for the TRS-80™, Apple II/lle®, and 
IBM PC® 

(TAB BOOK No. 1627), you should definitely consider having the 
ready-to-run tape or disk containing the software applications. This 
software is guaranteed free of manufacturer's defects. (If you have any 
problems, return the tape or disk within 30 days, and we'll send you a 
new one.) Not only will you save the time and effort of typing the 
Programs, the tape or disk eliminates the possibility of errors that can 
prevent the programs from functioning. Interested? 


Available on tape for the TRS-80, Models | and Ill, 16K. Available on 
disk for the TRS-80, Models | and III, 32K; for the Apple Il, II plus, and//e, 
32K; and for the IBM PC, 32K. Each tape or disk costs $19.95 plus $1.00 
each shipping and handling. Each disk costs $34.95 plus $1.00 ship- 
ping and handling. 

SS A AEG EG CAN) A GEDA RES ES SS EC ee 
I'm interested in ready-to-run software for 33 Adult Computer 
Games in BASIC for the TRS-80™, Apple fl/\le®, and IBM 
PC®. Send me: 


_! 


tape for the TRS-80, Models | and Ill, 16K (6034S) 
_____ disk for the TRS-80, Models | and Il, 32K (6035S) 
______._ disk for the Apple Il, Il plus, and //e, 32K (6235S) 
___ disk for the IBM PC, 32K (6615S) 

TAB BOOKS catalog 

____. Check/Money Order enclosed for § —_____ (In- 
clude $19.95 for each tape or $34.95 for each disk 
plus $1.00 shipping and handling). 


VISA MasterCard 
Account No, __________ Expires 
Name 
Address 
City ______..__-s—CSé<SStantte Zip 
Signature 


Mail To: TAB BOOKS INC. 
Blue Ridge Summit, PA 17214 


(Pa. add 6% sales tax. Orders outside U.S. must be prepaid with 
international money orders in U.S. dollars.) 
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33 Adult Computer Games in BASIC 
for the IBM PC®, Apple I1°///e® and TRS-80™ 
by David W. Chance 


Get set for a great new computer game-playing experience .. . 33 
exciting action-packed games and puzzles designed especially for 
adult interests and abilities! Quick thinking and plenty of imagination 
are needed as you play word and math games, fast action graphic 
games, guessing games, games of chance, even party games for up 
to 10 players. 

Here are target and action games, a fascinating party game 
called “Doctor Chips” that has the computer assuming the role of your 
psychologist, a computer dating game, wildly funny games that will 
liven up any party, and much more. You can test your driving skills, find 
games that take full advantage of your micro’s sound and graphics 
potentials, unravel mysterious codes, see if you can keep up with the 
computer as you take a whirlwind grocery shopping tour, play games 
of chance (that you may, or may not win), and play games like 
“Insomnia”, “Rainy Daze”, ‘Elevator’, ‘Dangerous Affair’, and many 
others. 

Plus, these carefully written and fully explained programs make it 
easy for computer users to learn new programming techniques and to 
use different programming approaches for solving the same problem. 

SO, if you're looking for games that are designed for adult enter- 
tainment, rather than the “zap the aliens” variety that most youngsters 
prefer . . . if you're interested in livening up your next party with some 
truly unique computer entertainment... or if you'd like to improve your 
programming expertise while playing computer games, then this is the 
book you've been waiting for! 

David W. Chance is a computer programmer who has written 
many game programs for a variety of computer systems. He is the 
author of TAB's 33 Challenging Computer Games for the TRS-80'™/ 
Apple '/PET®. 
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